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; ; ABSTRACT: 


This module contains the DEQNA driver FDT routines, 
interrupt dispatcher, interrupt service and fork routines. 


| 
| 
; AUTHOR: | 
| 
| 


Rod Gamache 26-Jul-1983 
4 
he : MODIFICATION HISTORY: 
4 v03-013 RNGOO13 Rod Senache 23-Jul-1984 
4 Fix mode setup and shutdow 
45 Change default on oRBse. FLAGS to not set ACL queue present bit. 
4 v03-012 pucdole Rod 6-Jul-1984 
4 ix ALLOC_CDB to int roy the address of ute unit 0. 
4 Fi problems ue _fensterting FFI users and deleting 


transmits on err 
Fix bug when disabling PROMiscuous mode in hardware. 
Fix MOP read counters request. 


v03-011 epee. Rod Gamache 17-May-1984 
SECOUnt for 4 bytes of CRC on vere eae messages, when 
return ng bse count from assemble 
Change the way the ‘set default’ soaitier for the 
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Physical address is ean: 


v03-010 RNGOO10 Rod Gama 11-May-1984 
Fix the setup of the an 3 address list tor all 
users after the first. 


V03-009 RNGOOO9 Rod Gamache 46-May-1984 
Add DEVSM_NET flag to device characteristics. 


v03-008 RNGOOO8 Rod Gamache 19-Apr-1984 
Fix call to EXESALOPHYCNTG to be absolute addressing. 


v03-007 RNGOO007 Rod Gamache 12-Apr-1984 
Fix problem with incorrect useage of the FFI interface. 
Also, return the Hardware Ethernet Address. 


v03-006 _ 0001 Peter Lieberwirth 9-Apr-1984 
Use EXESALOPHYCNTG to allocate physically-contiguous 10 buffer 
pews by u~VAX I on the QNA, 
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v03-005 LMPO2 Pilan 27-Mar-1984 12:02 
change UC a _ownuic™ to onesie MOUNER and UCB$W_VPROT to 
V03-004 RNGOO004 Rod N. Gamache 6-Feb-1984 


Set the XQ unit to RUN state when the QNA is initialized. 
Make the SETMODE descriptor use a word for the length, rather 
than a longword. 


v03-003 TMKO002 Todd M. Katz 03-Feb-1984 
When the DEQNA times out poceens of QBUS or device controller 
pover failure, then call back all Prost ene which are using the 
Fl interface and have bette an FFIS$L_ERROR asynchronous 
error routine. What this involves is noticing within the 
routine SHUTDOWN by means of the UCBSV_POWER status bit that a 
power failure has occurred. In such a Circumstance the port 
driver wants to call the asynchronous error routine of the 
protocol before im anything else provided the protocol has 
initialized the FF atertece: defined an asynchronous error 
rout ings ane the UCB for the protocol is both on-line and 
nitialized. 


vO3-002 TMKO0001 Todd M. Katz 03-Feb-1984 
Make the following changes to the driver: 
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1. I have created a NI device dependent UCB extension within 
SUCBDEF. This extension sone ns definitions for 
UCBSL_ Ni_HWAPTR and CBSL_N Ber. two ow Logart 
to be” Saiinetend within the Nites f all NI datalink drivers. 
I have therefore modi tied the XQDRIVER'S CB definition 
so fhas the DEQNA specific UCB fields beg n immediately 
following the NI device dependent UCB ex Pension. 


UCBSL_NI_HWAPTR is initialized when the COB is first 

elloceced te contain, the address a Cpe. G_ WA. the COB 
location whi = contains the s unique hardware 
address. UCBSL_NI_MLTPTR is A sed within the unit 
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16-SEP=1986 00:37:44 VAX/VMS Macro v06-00 p 
greet e8e Bo:srse YORIVER eae inobeives.mar:1 eee 


unitialization routine to gontein the address of the table 

of multicast addresses defined for sis protocol ¢t pe: 

Both of these values must be accessible to the NI-§ S port 
driver. The NI-SCS port driver has access to the UCBs of the 
NI devices pers rc ipet ine in SCS clusters, but it doesn't have 
initimate knowledge of how the UCBs and DBs are layed out 
for each NI device. This UCB extension provides a means for 
the NI-SCS port driver to locate these values without knowing 
the exact layout of each of the NI device's UCB and CDB. 


Whenever a protocol is to be started up on a DEQNA allow the 
initiator of the SETMODE+STARTUP to specify 0 receive 
buffers instead of the former minimum of 1. The effect on 
this protocol is that it must have a READ outstanding at all 
times in order to guarentee that it will receive all 
seregrens specifying its protocol. If a datagram was 
received for this protocol, and there wasn't a read 
outstanding, then because 0 receive buffers can be queued 
(or saved) for this protocol, the receive buffer would be 
deallocated to pool, and the message it contained lost. 


This change is extremely useful for those users who are 
making use of the FFI interface provided by this gers driver. 
Between the time the user issues a SETMODE+STARTUP, and the 
time the user initializes the FFI interface by calling 
FFI_LINIT, it would be possible for the port driver to have 
received messages with this user's protocol, and to have 
queued them up to the egprepr ete UCB. Now, if the user 

never makes use of the Q10 or ALTSTART interfaces, but just 
uses the FFI interfaces for communication, these messages, 
which are probably stale 2 this time, will never be 

received, and the buffers that contain them will effectively 
be lost forever. With this ghenge. a user who wishes to do 
all his/her communication via the FFI interface can guarentee 
that a situation such as this can never arise, and buffers 
such as these can never be ‘‘lost’’. 


Add the Sapebtl tty of requesting that the Eeresen address 
of the DEQNA device be set to the default DECnet address, 
when the device is first initialized. This new capability 
is requested by means of the LNMCN_SDF mode value 
specified within the modifier field of the NMASC_PCLI_PHA 


parameter. 
v03-001 RNGOOO1 Rod Gamache 08-Dec-1983 
Add new QNA "‘hand-shake"’ to prevent driver from reading 


incorrect status from hardware. 


> EXTERNAL SYMBOLS 


cc ce ec me ce cc eed ed 8d od ed dd dd dd 3 dd 
SIP DPA PAPA DA PDA De TB BS BE BB BEB WINN WWIII rnonopononungd 2 
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: 


Define ABDs 

Define AST control block 
Define CANCEL reason codes 
Define CCB offsets 


seth" 


00000001 


00000000 
0000004 
0000008 
Bho ho4 8 
000001 
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Local symbol definitions 


> Define the following symbol to enable 


POINT = 1 

; Argument List offsets for Q10 
P1 = 0 
Ps = 4 
e = 8 
P4 = i 
PS = 1 

S constants 
i Qu  —s- BROCST1 <*XFERFEFFFD> 
$SEQU BROCST2 <*XFFFFD> 
$SEQU MAX_C_MLT 12 
SEQU MAX_C_XMT 4 
$EQU MAX_C_RCV ° 
SEQU = MAX"C"XMTUVI 
SEQU  MAX"C™RCVUVI ; 
$SEQU MAX-PRT_SIZE 500 


oe 


ore 


Define 
Define S$ 
; Define 
Define 


Define 
; Define 
; Define 
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he 


ne device classes and types 


ne DPt characteristics 


ynamic data Sirus teres 
erface definition 
ce definitions 
°. function codes 


Mana enone Codes 


8 
ST —. gy See 
Ri guts BLOCK OFFSETS 


a r register definitions 
; Privilege bi 


definitons 
system PTEs 
sxetes st 27 +e Codes 


re rab ot} 


Define UC 


Virtual Address bits 
CRB VECTOR 
DECnet datalink characteristics 


use of point-to-point mode 
3; Enable use of point-to-point mode 


Parameter 1 

Parameter 

Parameter 

Parameter 4 

best inet ten/Seurce address 


Broadcast address 


Maximum number of multicast addresses 
Maximum number of entries in XMT ring 
Maximum number of entries in RCV rin 
Maximum number of XMTs on micro-VAX 
Ros aus nuayer of RCVs on micro-VAX | 
Size of maximum Ethernet user data 
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$EQU XQ_C_HEADER 14 
$EQU XQ-C"CRC 4 
$EQU XQ-C"CNTSIZ 2 
SEQU AR_BUFSIZ_UV1_ MAX_PKT_ 
$EQU UV1-BUFFER-AREA <<MAX_C_ 
$EQU MAX~C_CHAIN 
SEQU NI_CTR_PROTYP <*x0260> 
$EQU NI-CTR-READ 9 
$EQU NI-CTR-REPLY 11 
SEQU INIT_C_QUOTA $*1500 
$EQU INIT~C_AQUOTA 
SEQU INIT_C_BUFSIZE 128 
$EQU DSCSA_POINTER 4 
$EQU MIN_PRT_SIZE 46 
$EQU TQE-C_DELTA 2 : 
SEQU TQE-DELTA TOE_C_DELTA®10000« 
$EQU RESTART DELTA 3*10000*1000 
$EQU XMT_C_TIM 8 
$EQU XMT_TIM <<XMT_C_TIM#2>/2> 
$EQU DNI_C_TIM 10 ; 
$EQU TIM <<DNI_C_TIM+2>/2> 
$EQU XQ_C_ADDRCV 6 
$EQU XQ-C"STPRO <*xX0660> 
$SEQU IPC$-XQ_F IPL 8 
$EQU IPL$_XQ"DIPL 21 
3; Local macros 
MACRO SETBIT VAL,FLAG 

eNTYPE VAL 

-1F EQ 2_$$_=*x0EF> 

IF NOF VAL 

685s S*#VAL,FLAG,.+1 

IF LT <VAL-8> 

6158 #<1aVAL>, FLAG 

BBSS #VAL,FLAG,.+1 

~ENDC 

~ENDC 

LFF 

BBSS VAL, FLAG,.+1 

.ENDC 
-ENDM = SETBIT 
: SSSsssssssssssssssssesss 
-MACRO 


CLRBIT VM, FLAS 
YPE  $ VA 


¥ L 
-1F EQ 2. $$_-*xOEF> 
IF NDF VAL 
BBCC 

FF 


S*#VAL .FLAG,.+1 


; Allow for 
; Allow for 


r 
: Device 


744 aves Macro V04-00 Page 
254 RIVER. SRCIXQDRIVER.MAR; 1 
E 


thernet header 
Ethernet CRC 
ef’ packet count field 


CVUV1>*MAX_BUFS1Z_UV1> 
ximum number of extra segments in 
a receive buffer chain 


ze 
ze 
ze 
AD 
aR 


; Ethernet read counters protocol 60-02 
; Read counters request function 
; Read counters reply function 


of the largest buffers 
additional buffers 


; Size of init (setup mode) buffer 
; Pointer to data in buffer descriptor 
: 2 Ss of user data in a runt packet 


second timer interval 
000 ; Delta interval (in 100 nsec) 


; RESTART interval = 3 Secon 


s 
XMITS must take less than 5 seconds 
DNI settings must take less than 10s. 


;_Size to add to received packets 


PT-TO-PT Starting protocol type 60-06 
Fork mt di ” 
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§ IF LT a 
eee #<1QVAL>,FLAG 
99 : BBCC #VAL,FLAG,.+41 
8 0 eENDC 
8 91 ~ENDC 
0 35 o1FF 
G BBCC VAL, FLAG,.+1 | 
94 -ENDC 
99 99 -ENDM = CLRBIT | 
88 $7 : Sesssssssessesezesseeee= 
44 3 «MACRO INCC COUNTER, CONTEXT=L,?L 3; Increment counter 
44 00 INC * CONTEXT COUNTER 3; Do Increment 
i 83 ; Br if no carry set 
i443 8 t DEC CONTEXT COUNTER 3; Leave at maximum value 
$008 04 .ENDM  INCC 
0000 05; 
0000 38 ¢ Sesseesesssessesssssses 
0000 07 ; 
0000 08 .MACRO CNTR CURCNT,COUNTER,CONTEXT=L,?L ; Accumlate counter 
0000 09 ADD CONTEXT CURCNT,COUNTER ; Do addition 
0000 10 ; Br if no carry set 
4 Vy} ‘ MNEG* CONTEXT #1, COUNTER ; Leave at maximum value 
0000 i -ENDM CNTR 
0000 314: | 
44 19 ¢ suseseseeessssszsszszzz 
000 16 ; 
0000 17 .MACRO PUSHQ ARG ; Push a quadword 
0000 18 MOVa ARG,-(SP) ; Save argument on stack 
464 19 .ENDM PUSHQ | 
000 0; 
0000 1 § Suzseeeessezesssssseses 
0000 3 
000 -MACRO POPQ ARG ; Pop a quadword 
O08 MOVQ (SP) +, ARG ; Restore argument 
0 5 .ENDM POPQ 
00 § 3 
$6 § Seessesesssesesesessess 
PY 
4 § eMACRO PARAM TYPE ,OF FSET, WIDTH, MIN,MAX, INVALID ,BASE=UCB,STRING,=- 
0 S126, CHECK=VES 
6 ¢ : Macro to generate the parameter tables 
6 : 3 Inputs: 
3 § 3 TYPE = Parameter type 
00 3 OFFSET = Offset in UCB/CDB to current value 
3 3 WIDTH = Width of field in UCB/CDB (B,W.L) 
3 MIN = Minimum value parameter is allowed to take 
40 ; MAX = Maximum volue parameter is allowed to take 
41 ; INVALID = Invalid flags in status word 
0 42 ; BASE = Data base (CDB,UCB) 


sets 
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WOO 000000000 0900 09 00 00 GD Co 
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STRING Poraeneter is a string value 
SIZE = Max mum size of string peceneter in bytes 
CHECK = Comparison is needed (YES,NO) 
IF BLANK type 
“WORD 0 
- 1F_FALSE ; BLANK type 
$$Styp = agen & prm_typ_m_code ; Isolate type code 
ot thy 
LIF NOT Suan <invalid> $$$flg = $$$flq! prm_ mi mn. invalid 
LIF IDN"<check><YES>, $$$fL = $$$flg!prm. flG_m_chéeck 
LIF ION <base><CDB>, $881 1g = $$$flg!prm_flg_m_ 
-IF BLANK string 
«WORD $$$typ 
LIF NOT BLANK <min>, $$$flg = $$$flg!prm_flg_m_min 
v LIF WOT BLANK K eesti <max>, $$$flg = $$$flg!prm_flg_m_max 
$$$Soff = offset & orn. off_m_value ; Isolate offset only 
$$$wid = 0 Set null width 
~LIF ION <width><B>, $$$wid = <laprm_ oft _Vv_width> 
LIF ION <width><W>, $$$wid = <gaern. off-v_width> 
LIF ION <width><L> tt tb = <3aprm_off_v_width> 
WORD  $$Soff!$$$wi 
LIF NOT_B ANK cnin>, - WORD min 
- LIF NOT_BLANK <max>, WORD max 
Line_prm_bufsiz = Line_prm_ bufsiz + 6 


. IF FALSE ; BLANK STRING 
- WORD Ht !prm_typ_m_string ; Indicate a string parameter 


BYTE 
S$$Soff = offset & ore. off_m : Isolate offset onl 


value 
$$$wid = <size @ prm_off_V maidth> & prm_off_m_width ; Set. mex allowed 


$$$siz = <$$$wid 7era.8¢ ‘ott, v_width> 
SSSott: 
Line pra. bufsiz = Line red bufsiz + 4 + $$$siz 
-ENDC ; BLANK STRING 
- LIF NOT_BLANK <invalid>, .WORD invalid 


-ENDC ; BLANK TYPE 
PARAM 


OFSET SIZE,OF FSET, BASE 

-1F IDN <base><LINE> 

ono cdb_‘size'_‘offset' 
-WORD ucb$'size’_xXQ_‘offset' 
-ENDC 


OF SET 


7 
(1) 


| 
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SOOSOOCSSOSOSOSOSSOSOSSSOSSSOSSOSOSOSOSOSOSSOSSOSOSOSOOOSOSOOOOOSOOSOOOSOO 
SOCOCSCSCOOCOCOCSOOSOOOOSOSOSOSOSOSOOSOSOOOOOOSoSOoOOS COOooCooooocooo 


Pe a UUM UU MMMM UMUMMAUUMUAUAUAAAAAAHMAHee tet e ee 


MOAN BEE BEES EB WWW WWW ROPONOPOPONONUPOD 2 2 A OQOO OO OOOOO 


BALE WMO ODN NEWIN 9 OD NOAUE WIN $$ 9 OD NAM EWN @ OOO NOU EW OO ODNAOU SW 


SSS SOS SSS SSS SSS SSSSSSSSSssssssssssssssssssssssss 


CSoooooooo 
SoQoooooooeo 


Soooooooo 
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MACRO COUNTER TYPE ,WIDTH=16 OF FSET=0,BASE=LINE ,B1 TMAP 
-1IF NDF ‘base’ ctrsize, ‘base’ ctr size = 0 
_ctr_bufsiz = 0 


F NDF ‘base'-ctr-bufsiz, ‘base 
p = nma$Sc_ctlin_‘type’ & nma$m_cnt_typ 


DN <base><CINES 


h><8>, $$$wid = <1 
h><16>, $$$wid = <2anma$V_cnt_wid> 
h><32>, $$$Swid = <Sanma$v_cnt_w 


naasy cnt wid> 

Vv 

<3 id> 

$$Swid, .ERROR ; Inval?d bit width value 


Set reserved mask width 


zac 
te te mt 
aaa 
ctctc? 


D 
7 <width><16>, OFSET W,'offset,'base 


e’_ctr_size = ‘base’ _ctr_size + 1 : ge he one more entry 
e'“ctr-bufsiz = ‘base’ ctr_bufsiz + 2 + <width/8> 

. IBN <Bitmap><MAP>, ‘base'_ctr_bufsiz = ‘base’ _ctr_bufsiz + 2 
-ENDM COUNTER 


«MACRO MOPCTR WIDTH=16,0FFSET,BITMAP 
-1IF NOF mop_ctr size, mop_ctr_size = 0 
$$$map = 0 
idth/8 


$$$wi 
F tmap><MAP>, $$$map = 187 
<offset 


i 
NK offs 
N <width><8>, OFSET B,'offset,LINE 
N <width><16>, OFSET W,‘offset.LINE 
N <width><32>, OFSET L,‘offset.LINE 
$$map'$S$wid ; Counter width in bytes + BITMAP FLAG 
oon ctr_size = mop _ctr_size + $$$wid 
LIF 1°, so semape are, mop_ctr_size = mop_ctr_size + 2 


-IFF ; NOT_BLA 

WOR 0 3; End of table 
-ENDC ; NOT_BLANK 
MOPCTR 


‘d 
<b 
BLA 
ID 
1D 
ID 


MACRO SKIP  BIT,LOC,REG,CONTEXT=W, ?L : SKIP FIELD 
: Br if field not present 


FET CONTEXT aa (REG) + : Skip next field 
L: ; 
.ENDM = SKIP 
: SSSssssssssssssssssssses 
“MACRO SDISPATCH, INDX, VECTOR, TYPE=W,NMODE=S“#, 2MN, 2MX, 2S, ?SS, 222 


SS: 
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»MACRO $DSP1,$DSP1_1 
« IRP $OSP1_2,$DSP1_1 
$DSP2. _$DSP1_2 


ENDR 
.ENDM = $DSP1 


OOooooo 
polo lo lololololo) 
OoOoocoocoo 


«MACRO $0SP2,$DSP2_1,$DSP2 2 
.2<$D$P2_1-MND>#2 + § 
; WORD SDSP2_2-S 
-ENDM $DSP 
.MACRO $B8ND1,$BND1_1,$8ND1_2,$BND1_3 
$BND2’ $BND1’1,SBND1_2 
.ENDM 
-MACRO $BND2,$BND2_1,$BND2 : 
LIF $BND52_1,$8ND a -=$BND2_2 
.ENDM $BND2 


| 
-MACRO $BND $BND_1,$BND_2 
. IRP $BND-3,<$BND_2> 

- SBNDT  $B8ND_1,$BND_3 | 
.ENDM © $BND 
} 

20 
$BND  GT,<VECTOR> 
| 
| 
| 


Fat at at at at aera rrr uaadaa aaa 
Pad 
~ 


50.0900 09 09 09 09 09 09 09 C8 SI NIN SIN SIN NIA AAA AAAAOAOOUIUIN 
OOONAUE WN 0 OONOAOUES WN O OONOUES Wl OWOOon 


OOoOoOoooooooooooooooooooooooooooeo 
SOSSSOOSOSOSOSOOSOSOSOSOSOSCOOSOSOSOSOSOOSOOOSSoO 


SOOooooooooooooooooooooooooooooooooooooooo 
SOCOCOCOOCOOCOSOSOSOSOSSOSOSOSSSOOSOSOSOSOOSOOOOOOOOOOOOOO 


MX: 
$BND LT, <VECTOR> 
MN: 
491 — 
49 CASE" TYPE INDX , #<MN-2Z>,NMODE ' <MX-MN> 
494 .REPT MX-MN#1 
495 WORD <MX-MN>*2 + 2 
00 £36 ~ENDR 
00 49 
0 498 .=S 
0 499 
200 $DSP1 <<VECTOR>> | 
; 308 o=<MX-MND>*2 + S + 2 
0 4 .ENDM  $DISPATCH 
0 505 
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00000021 


00000038 


00000046 
0000003C 
0000003C 
00000038 
0000003A 
0000003C 
00000040 
00000044 
00000040 
0000003C 


00000040 


00000094 
0000003A 
00000090 


00000060 


ODOoQoooooooooooooo 


COOOCOOCOSCOSOOSOOOOCO COO OSOSOOSOOOOSOOOOOSoSO 


FRR R EE & FWA BE BE FR WWAWAIRININIOOOOCOO 


r~ 
FOQCOMUIN OAS & fF LFOQCSOMOOS SP PDOOMOCOO VNC S & OWMOrNNn— 
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; Overlays of IRP 
SDEFINI IRP 


= IRPSu FUNC! 
DEF [RP$B_XQ_FUNC 


= IRPSL MEDIA 
DEF  IRPS$W_XQ_RID 

DEF  IRP$B"XQ"SLOT 
DEF — IRP$BXQ"RING 


GLOBAL 


-BLKB 


-BLKB 
~-BLKB 


i 
10 
1} 
‘ 
5 
13 
0 , = IRPSQ_STATION+6 
1 $DEF  IRPSB_XQ_DATAP .BLKB 
5 . = IRPSL_MEDIA+4 
: SDEF IRPSL_XQ_SYSBUF .BLKL 
§ . = IRPSL_MEDIA+4 
4 SDEF IRPSL_XQ_DATBUF .BLKL 
9 , = IRPSL_MEDIA 
9 SDEF IRP$W_XQ_USERSIZ .BLKW 
4 
8 
9 
40 
4} 
23 
44 
a 
‘? 
25 
0 
4 


. = IRPSL_MEDIA+2 
SDEF IRP$W_XQ_STATUS .BLKW 


._ = IRPSL_MEDIA+4 
SDEF IRPSL_XQ_USERBUF .BLKL 
. = IRPS$Q_STATION 

SDEF IRPS$L_XQ_P2BuUF 


. = IRPSQ_STATION+4 
SDEF 


~BLKL 


IRPS$SW_xXQ_P2SI1Z2 .BLKW 
. = IRPSQ_STATION 

SDEF IRP$W_xXQ_CODE .BLKW 
= JRPSL_MEDIA+4 

$DEF 

= IRP$Q_STATION 

$pEF  —- IRPSL_XQ_DGUNI 
SDEF IRPS$L_XQ_UPADR 


= IRPSL_RBUFH AD 
DEF IRPSL_x@_ SETUP 


spre [RPSL MEDIAL? 
$ 


IRP$L_XQ_MAP =. BLKL 


~BLKL 
-BLKW 


~BLKL 


W_XQ_PROTYP .BLKW 


= IRPSL_LBOFF 
DEF IRPSL_XQ_SHR 


. = IRPSL_FOFL 


~BLKL 


PUPVPASIAAAII att 
WR OOCONOuM 
Ofte 


et 


1 


1 


1 
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QNA driver internal function code 


RCV/XMT request ID 
RCV/XMT mapping slot number 
RCV/XMT ring entry number 


XMT buffered data path number 

XMT system buffer address 

User RCV data buffer address 

User P2 buffer size on sensemode 
Completion status 

User Pl buffer address on sensemode 
User P2 buffer address on sensemode 
P2 return buffer size on sensemode 
Bad parameter code on startup request 
Diagnostics buffer mapping info 


Diagnostics buffer UNIBUS address 
Micro-process internal address 


Setup transmit buffer 
Protocol type for user 


Address of SHR structure for user 


xQ 
vO 


sets 


wiv 


NNSA AAA 


SOOWDONAOUES AN OOONOUE 
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SDEF 


IRPSC_XQ_STD 


16-SEP- 


~$EP=1986 00:2 


~BLKL 1 


7:44 
0:54 


; End of ‘'standard'’ IRP 


yanivas Macro V04-00 
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Define driver internal function codes stored in IRP$B_XQ_FUNC of IRP. 
; NOTE: These are not really used as bit offsets - but as Values. 


_VIELD XQ_FC,0,<= 
<If 


lahat 


SDEFEND IRP 


ingecnet f rune i ten codes 
Initialize 

Transmit Peosaal 
Receive request 

Stop greneet 

Cancel re 

Restart P OTOCOL 

Change the setup mode 


End of IRP overlays 


0 7 
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sets 


gi : Overlays of CXB 
12 SDEFINI CXB GLOBAL 
00000020 $ = CXBSL_SPARE1 
3 SEF CRBSB_XQ_FUNC -BLKB 1 : QNA driver internal function code 
00000022 1 -—BLKB 1 : PAR 
0 SDEF CXBSW_xQ_RID ; RCV/XMT request ID 
91 SDEF CXB$B_xXQ°SLOT .BLKB 1 ; RCV/XMT mapping slot number 
? 3 SDEF CXB$B_XQ_RING .BLKB 1 ; RCV/XMT ring entry number 
4 94 ; 
" 32 ; The following overlays are for transmits only 
00000024 0 4 3 me CxBSL _SPAREO 
024 38 ; NOTE: The pag two fields area overlayed. So if the Low 
4 : oo ; Bit is set, then the address is that of a UCB, else it's an IRP. 
024 oo SDEF xB BSL_T_IRP ; Associated IRP address 
, 4 oR? SDEF CXBS$L_T_UCB -BLKL 1 3; Associated UCB address 
0000003A 00 H 605 . BSC_HEADER-<xQ_C_HEADER> 
B04 ong iver CRBST_T_DATA ~ .BLKB XQ_C_HEADER ; Standard Ethernet header 
004 608 ; 
a 608 ; The following overlays are for receives only 
00000008 0048 611 . = CxBSB CODE 
Boe ole SDEF CRBSB_R_FLAGS .BLKB 1 ; Receive message flags 
0000001C 00C 614 . = CXBSL_END_ACTION 
Hf 91 Sper CRBSWR_NCHAIN .BLKW 1 ; Number of buffers in chain 
00000014 OO1E $15 . = CXBSL_I 
Bie o18 SDEF CRBSW_ R_STS -BLKW 1 ; Receive status 
00000038 51 620 . = CXBSC_H or. = <XQ_C_HEADER+xQ_C =CHTSIZ> 
0 621 $DEF CRBST_R_DATA ; Start of receive data 
0 6 § SDEF CxB$ §- R_DEST -BLKW ; : Destination node address 
—E 625 SDEF CXB$G_R_SR -BLKW : Source node address 
44 624 SDEF CXBSW_R mille -BLKW 1 : Protocol Type 
4 625 44 CXBST_R_ mitts ; Start of user data 
? $ DEF CXBSW"R-SIZE -BLKW 1 ; Size of received nessege (if padded). 
4 628 ; 
: ? ; ; NOTE: The CXB functions are the same as for an IRP (IRP$B_XQ_FUNC) 
48 631° 
8 632 SDEFEND CXB _ 3 End of CXB overlays 


—e 7 
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634 : 
° g | : Definitions that follow the standard UCB fields 
6 
° SDEFINI UCB GLOBAL ; Start of UCB definitions 
00000098 : a . = UCBSC_NI_LENGTH 3; Position at end of UCB NI extension 
$8 o¢6 SDEF UCBS$Q_xQ_QUEUES ; Message and 1/0 request queue heads 
09 6435 SDEF uCBSQ_ xa. SHARE .BLKQ 1 ; List of shared users 
OA 644 SDEF uCcBS$Q_ 3; Start of the 1/0 queues 
BA 645 SDEF uCBSQ_ xo" -RCVMSG .BLKQ 1 ; Receive messages completed 
A 248 SDEF UCB$Q_XQ-RCVREQ 1‘ KQ 1 ; Receive IRP waiting for messa ty 
0B 647 SDEF UCB$Q°XQ°XMTREQ .BLKQ 1 3% Xmit IRP wait queue (PT-TO-P 
00000004 08 648 UCBSC_xQ_QUEUES = C ucBeae XQ_QUEUES>/8 : Number of queue heads 
08 650 SDEF UCBSL_XQ_PID -BLKL 1 ; Starter's PID 
08 $2) SDEF UCBSL_XQ_CPID .BLKL 1 3; Creator's Pl 
OC 6 § SDEF UCBSL_XQ_AST -—BLKL 1 ; Attention AST List 
0C>6 6535 SDEF UCBSL_ ‘ “DEFUSR .BLKL 1 ; Default shared user (shared use only) 
45 654 SDEF UCB$W_XQ-QUOTA .BLKW 1 ; Receive buffer quota 
-BL ; Ethernet protocol type 
Bore oe? SDEF UCBSW_ ‘a ~PROTYP BLKW 1 Eth l 
OOcCc $39 SDEF UeRse 16.35 IPAR ; Start of parameter section 
Boss O28 SDEF UCB$G_XQ_DES -BLKW 3 ; Destination address for shared user 
00D 659 SDEF YeBSu-X0"HBO -BLK 1 ; Hardware buffer quota 
Bebe 660 SDEF UCBSB_xQ_ACC -BLKB 1 ; Protocol access mode 
ie $8) SDEF UCBS$B_XQ_BFN -BLKB 1 ; Number of receive buffers 
006 $06 SDEF UCBS$B_XQ_SHRPRM ; Start of ‘’shared user’’ validated prms 
0D6 664 SDEF UCBSW_xQ_BSZ -BLKW 1 ; Device buffer size 
4 665 SDEF UCBS$B_xXQ_PRO -BLKB 1 ; Protocol selection 
00D 666 SDEF UCBSB_XQ_PAD -BLKB 1 ; Padding meee 
OODA 667 SDEF UCBSB_XQ_ PRM ~BLK 1 ; Promiscuous 
00DB 668 SDEF UCB$B_XQ_MLT -BLKB 1 3; Multicast tatty "address state 
sit43 66 SDEF UCB$B_xQ_DCH -BLKB 1 ; Data chaining on receives 
ODD 671 SDEF UCBSB_ me _CDOBPRM ; Start of settable parameters for COB 
ODD ore SDEF UCB$B" XQ" CON -BLKB 1 ; Controller mode 
00000001 OODE 6735 UCBSC_xXQ_CDBPRM = .-UCBSB_ XQ_CDBPRM 
00000008 4 ore UCBSC_XQ"SHRPRM = .-UCB$B_XQ_SHRPRM 
ODE O76 SDEF UCB$G_XQ_PHA -BLKW 3 3; User defined physical address 
00000007 pee o7 UCBSC_XQ_SETPRM = .-UCB$B_XQ_CDBPRM 
OE4 o8 SDEF UCBSB_XxQ_MST -BLKB 1 3; Maintenance state 
€5 6 , SDEF UCBSB_XQ-MULTI .BLKB 1 : Number of entries in MULTI 
Bg 681 SDEF uCBSB_ xo. -MLTTBL .BLKB Number of entries in MLTTBL 
3 : SDEF  UCBSG"XQ"MULTI .BLKW Sema C ALT 3 Multicast address list 
: f ? Z SDEF UCBS$G_ x0 “MLTTBL .BLKW *MAX_C_MLT ; Multicast generation List 
177 =685 SDEF UCBSW_xXQ_CTR ; Start of counter section 
177 6 $ SDEF UCBSW_XQ"MNECTR .BLKW 1 ; Multicast address not enabled 
179 §=687 SDEF CBSW_xXQ_UBUCTR .BLK 1 ; No buffer available counter 
178 6 8 SDEF UCBSL_XQ_SBLCTR .BLKL 1 ; Number of blocks sent 
17F 689 SDEF UCBSL_XQ_SBYCTR .BLK 1 ; Number of bytes sent | 
183 690 SDEF UCBSL-XQ"RBLCTR .BLK 1 ; Number of blocks received 
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0 
0 
0 
0 
0 
Q 
0 


Ok a a a ho 
WDOOOVOOOOOOOOOOOOOOOOOM@Mce 


“SEP=1 


DEF  UCBSL_X@_RBYCTR .BLKL 
DEF —-UCBSW.XQ_TOTQUO .BLKW 
DEF  UCBSLIXQ°FFI  .BLKL 
DEF UCBSL xo- “Sh IRP “BLKL 
DEF  UCBSC_x@_LENGTH 


Define device status bits 
SVIELD UCe. 0,< 


i 
<kQ “BROTYP, .M>, 


<xQ “START AD, - 


SN NO A AAA OOAO 


St | “QOOCODWWKWOOOOCOOOOOOOO0ONO 
VIEW OOONOAU EW CO OONOU ES wr 


SOEFEND UCB 


; Number of by 
nused/unneede 
otal quota for 
; Fast interface BLOCK adits 

;% Address of PT-TO-PT Startup IRP 


; Size of XQDRIVER UCB 


een 


; XQDRIVER UCBS$W prys's bits 
0’ INITED, .M>, - ; Device is initTalized 
5,- ; RESERVED 
; Protocol type specified 
; aetes protocol type 
is in RUN mo 


7% “nit is in PT- -TO=PT startup state 
7% ones is in PT-TO-PT stack state 


: ved 
: RESTART bit is interlocked 
; Automatic RESTART on PROTOCOL 


he “STACK, ,M>,= 


“Ka “ {NTERLOCK, .M>, - 
<xa “RESTART, ,M>,= 


; End of UCB definitions 
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i] 
Q 
0 
0 
Q 
Q 
0 
Q 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


PPO & 
4-4-4 4-4-4444 


PPAAPRAARHAAAAGA 
MmMmmmmmmmmmmmnern 
ee i ee a Bs | 


Ooo 
pindpanadpdnabdhabdbapabandsdeaaieien ee 
o 


be fw le lw leew lwo lolol elo oleloleoleleoleoleleloleolol a) 
a i NN NN i te ee ee ee ee | 


PITTI UTTAR ONONOnNn Ss 


DONA NES WN  O ODNA NE WIN  O OD NAW EWN O OONOU EW OOOn 


pw fw hw lw le ww low lalallala la lolololololeloleolelolololelolao lo lololololo) 


SDEFINI XQ 


PHYADDO .BLKW 
PHYADD] .BLKW 
PHYADD 


dd2 
RCVLIST .BLKW 
SAG OE 
PHYADDS .BLKW 
PHYADD4 
XMTLIST .BLKW 
XMTLST1 
PHYADDS .BLKW 
VECTOR .BLKW 
CSR -BLKW 


WIELD XQ_CSR 
<ROVENA 
<RESET 


<ERR..M>.= 
<KMTENT, .M>,~ 


_VIELD XxQ_SOFT,0,<- 
<TIMEOUT 
<POWER, «A> ,~ 


SDEFEND xQ 


+) — — — —+ 
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: Device register offsets and bit definitions 


; Start of port CSR definitions 


Physical address (R/O) = low byte 
more poye*cee address (R/O) 
and still more ) 

Receive descriptor List (W/O) 
high order receive List (W/O) 
more physical address (R/O) 
more physical address (R/0) 

Transmit descriptor List (W/O) 
high order receive List (W/O) 
more physical address (R/O) 

Vector addrss (R/W) 

Port CSR 


CSR bit definitions 
Receive Enable 

Reset 

Non-existent memor 

Read BOOT/DIAGNOSTICS ROM 
Transmit List is invalid 
Receive list is invalid 
Interrupt enable 

Receive interru 


External loopback 
gonity timer 

RESERVED 

Transceiver cable okay 
Carrier sense 


Fatal error flag (software set) 
Transmit interrupt 


Timeout 
Power fail 


; End of device register definitions 


pt 
Internal loopback (O=ENABLE,1=DISABLE) 


Software error flag bit definitions 


ne wm ew eee w eee lolol ololololololololo) 


SOOoooooooooooooooSo 


OOQOCOOOCOCOCOoOooOoooooooooooo 


ooo 


SOoOoOOCOOOOOOOSOSOOSOSOOSOOSSOOSSOSOSOSOSOSOSOSOSOOOO OOOO OOOOOOOOOOOOOOOO 


POOOOVOVOBVOVOVODVAOVOAOOOOIOAIAIOIOOIOIOAAOAOIAAIAIOAIOOAAOOOAIOOOOOOPrPao ls 


SOOCOSCOSSOSOSOSOOOCOOOOSOOOOOOOOOSOSOSOSOOSOOOOSO 


oooooo 
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NNN SENSO AAAS 
ARO OO NOA UE WW SO OD NAME WS" OOONOAUE it 


ee 


WOO CICD COCO CUCU CDOCO I~ on 


01 


0 
0 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 


NOUS AN O ODNOAUE WN 


FLAG -BLKW of : 
XMT_W_ADDRHI »-BLK 1 ; 
DOR -BLKW ; 
XMT_W_LEN «BLK 1 F 
XMT_W_STS -BLKW ; 
T_W_TOR -BLKW 1 ; 


XM 
XMT"C"LENGTH 
K_LENGTA = XMT_C_LENGTH * <MAX_C_XMT 


-VIELD XMT_FLG,0,<- 
14>,- 


eet Pa Be 


; Define the Transmit Ring Entry 
SOEFINI XMT GLOBAL 


<,18>, 
<éRR, .M>, = 
<LAST; ,M>,- 


7 
De Se Se Se Se Be ee 


> 
XMT_DSC,0,<- 


<,65,- 
<BEGODD,1,M>,- 
<ENDODD,1,M>,= 
<,4>, 
<SETUP,1,M>,- 
<EOM,1.M>,- 
<CHAIN,1,>,- 
SVALID.1.A>o= 


Bete Ge Ge Se Se Ge Ge Ge 


XMT_STS,0,<=- 
> i 


<€0L.4,M>,- 
<FAIL,,>.> 
<ABORT.,>,- 


<,1>,° 
<NOCAR, ,M>,- 
<LCAR, .M>,- 


<,1>,° 
<ERR. M>,- 
<LAST. ,M>,= 


ve 
7 A 
te 
eee 


7:44 VAX/VMS Macro 
0:54 (CDRIVER.SR 


a 


Vv 
CIXQDRIVER.MAR; 1 


Start of Transmit Ring Entry format 


; Flags word 
; Buffer address (high) and descriptor 
16 bits) 


uffer address (low 
*s complement WORD size 


; XMIT Status word 
; Time Domain Reflectometry word 


Size of transmit buffer ring entry 


1> ; Size of xmit ring (1 for chain) 


Define flag bits 
RESERVED 


Transmit error 

LAST packet/NOT used indicator 
The driver only queues one seqment 
transmit buffers, so this is 
essentially an OWN flag. 


Define bits for descriptor word 
RESERVED for high order address 
Buffer begins on a ODD address 
Buffer ends on an ODD address 
RESERVED 

Setup operation 

End of message. 

Chain operation 

Valid buffer address 


Define bits for status word 
RESERVE 
Number of collisions 
Collision check failure 
Transmission was aborted due to 
excessive collisions 
RESERVED 
No carrier ever present 
Loss of carrier 
RESERVED 
Error on transmit 
LAST geqhet/w! used indicator 
The driver only queues one seqment 
transmit buffers, so this is 
essentially an OWN flag. 


Define bits for TDR WORD 
Time Domain Reflectometry 
RESERVED 
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oo 


SOoQooooooooooooo 
Soooooooooooooo 
SOOoOoOooooo 


— 


K_LENGTA 


SDEFEND XMT 
SDEFINI RCV GLOBAL 


LAG ~-BLKW 
DDRHI ~BLKW 
-BLKW 


N -BLKW 
-BLKW 
-BLKW 
TH 
_C_LENGTH * 
_VIELD RCV FLG,0,<- 
<,14>,- 


<ERR,.M>,= 


<LAST. ,M>,- 
> 


RCV_ 
RCV- 
RCV 
RCV 

RCV 

RCV 
RCV 
T 


_VIELD RCV DSC,0,<- 
<,14>,- 


<CHAIN,1,M>,= 
<VALID,1,M>,= 


_VIELD RCV_STS,0,<= 
<OVF, ,M>,- 
<CRCERR, .M>,= 
<FRAME, .M>,- 
<SHORT, .M>.= 


A 
o 
-_ 
nw 
o 
> 
Uz 
oz 
-= Vv 
a) 
=z 
v 
> 
i 


<ERR,,M>,- 
<LAST, JD. 


SDEFEND RV 


SDEFINI XBUF 


XBUF _G_DEST ~BLKW 
XBUF ~G"SRC ~BLKW 
XBUF “W~ TYPE ~BLKW 
XBUF ~T"DATA 

XBUF ~CHEADER 


XBUF _W_SIZE ~-BLKW 
SDEFEND XBUF 


; Define the Receive List Entry 


Be 00:20: 


<MAX_C_RCV+ 


: Transmit Buffer Header Format 


WG 
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End of Transmit Ring Entry 
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Start of Receive List Entry format 


Flags word 


Buffer address (high) and descriptor 
bits) 


uffer address (low 16 

*s complement WORD size 
Status word 
Receive length byte <7:0> 
Size of transmit buffer ring en 


tr 
1> ; Size of receive ring (1 for chain) 


Define flag bits 
RESERVED 


Receive error 
LAST packet/NOT used indicator 


ne bits for descriptor word 
RVED for high order address 
nN operation 

d buffer address 


Define status word 
DEQNA receive overflow 
CRC error 

Framing error 

Short on Ethernet Cable 
RESERVED 


V 
pece ive Length bits <10:8> 


UN peers 
DISCARD packet (VALIDATES OVF & CRCERR) 


End of setup 
Error/USED indicator 
LAST packet/NOT used indicator 


End of Receive Ring Entry 


Define transmit buffer header 


Destination address 

Source address (overlays UCB) 
Protocol type 
Start of xmit data 
Size of buffer header 


Size of buffer (only if padding) 
End of transmit buffer header 


x¢ 


XQDRIVER = VAX/VMS QNA driver 
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Block header for non-DECnet xmit buffers 


SDEFINI BLK ; Define a standard block header 
SDEF BLK LINK -BLKL ¢ 3; Forward and backward queue Links 
SDEF ae a" SIZE -BLKW ; Block size 
SDEF K-B_TYPE -BLKB 1 3; Block type 
SDEF BLK “8. Any -BLKB 1 3: SPARE byte 
SDEF BLK-T_DAT 3; Start of data 
SDEF BLK=C “HEADER ; Size of buffer header 


COONAULS WI" OOOnNoOu 


COCUCOCO CO COCO CNC8 SII 


SDEFEND BLK 


ao 
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p : Define the DEQNA Controller Data Block (CDB) fields 


Oo 


SDEFINI COB GLOBAL Start of CDB definitions 


SDEF COB_L_FQFL -BLKL 1 ; Fork queue forward Link 

SDEF COB_L_FQBL -BLKL 1 ; Fork queue backward Link 

SDEF COB_W_SIZE -BLKW ; Size of CDB 

SDEF COB_B_TYPE -BLKB 1 ; Type of structure 

SDEF COB_B_FIPL -BLKB 1 3: Fork IPL 

SDEF COB_L_FPC KL (7 3; Fork P 

SDEF COB_L_CSR ; Port c* contents 

SDEF COB_L_FRS -BLKL 1 ; Fork R 

SDEF CDB_L_FR4 -BLKL 1 ; Fork R4 

SDEF CDOB_B_NEXTXMT .BLKB 1 3; Next entry in XMT ring 

SDEF COB_B_NEXTRCV. .BLKB 1 ; Next entry in RCV ring 

ASSUME MAX_C_XMT LE 8 

ASSUME MAX_C_RCV LE 8 

SDEF CDOB_B_RCVMAP -BLKB 1 ; RCV map slot in use flags 

SDEF CDB_B_XMTMAP -BLKB 1 3 XMT map slot in use flags 

SDEF COB_L_RCVMAP -BLKL MAX_C_RCV-1 ; RCV mapping vector 

SDEF CDOB_L_XMTMAP -BLKL MAX_C_XMT-1 ; XMT mapping vector 

SDEF CDOB_L_RRINGPA .BLKL MAX_C_RCV+1 ; RCV Ring entry PHYSICAL address 
SDEF CDOB_L_XRINGPA .BLKL MAX_C_XMT+1 ; XMT Ring ea PHYSICAL address 
SDEF | CDBIL“RRINGVA .BLKL MAX-C"RCV ; RCV Ring entry VIRTUAL address 
+444 Be LLUXRINGVA .BLKL C XMT Ring entry VIRTUAL address 


MA AT : 

B-L_RCV_PA ~BLKL MAX_C[RCVUV1 ; Receive contiguous buffer 
° peyerces address 

SDEF  CDB_L_XMT_PA  .BLKL = MAX_C_XMTUV] ; Transmit contiguous buffer 
: prysices address 

SDEF CDB_L_RCV_VA ~BLKL MAX_C_RCVUVI ; Receive contiguous buffer 
; virtual address 

SDEF COB_L_XMT_VA -BLKL MAX_C_XMTUV1 ; Transmit contiguous buffer 
; virtual address 

SDEF CDB_Q QUEUES Start of CDB queues 


AA AIR IPOPONIMINIMINININD 4 9 3 3 3 3 3 BQO OOO OOO OOO DOOD 0000 


ODOOOOOOOOOOOOOOOOOVOOOOOOOOOOOOOO 
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MIOOMWOLLMOBMMIGOOOLOLOLSLLOOOWDDEL LOOM OC@WLOOWDPr YP FP OWLS OOOlTD PoOtfo 


DEF CDB_Q_XMTREQ -BLKQ 1 : Transmit request queue 
00000001 CDB_C_ABORTS = <.-CDB_Q_QUEUES>/8 ; Number of Queues to abort requests 
SDEF CDB_Q_ INPUT -BLKQ 1 : Input process queue 
SDEF CDB_Q_XMTPND -BLKQ 1 ; Transmit pending queue 
SDEF COB_Q_RCVBUF -BLKQ 1 3; Receive buffer queue 
SDEF COB_Q_RCVPND -BLKQ 1 3; Receive pending queue 
SDEF CDB_Q_POST -—BLKQ 1 ; Post process queue 
00000006 4 CDB_C_QUEUES = <.-CDB_Q_QUEUES>/8 ; Number of Queue Heads 
4 SDEF COB_B_LASTRCV .BLKB 1 ; Last entry done in RCV ring 
SDEF CDB_B_LASTXMT .BLKB 1 ; Last entry done in XMT ring 
937 SDEF COB_B_RCVCNT -BLK 1 ; Count of receives given to QNA 
938 SDEF COB_B_XMTCNT -BLK 1 ; Count of xmits given to QNA 
939 SDEF COB_W_BSZ -BLKW 1 ; Device buffer size 
e SDEF CDB_W_ QUOTA -BLKWY 1 ; SYSTEM buffer quota 
942 SDEF CDS _| DE VREPEND -BLKL 1 : Device dependent longword 
943 SDEF COB_L_UCB -BLKL 1 ; Address of UCB #0 
944 SDEF CDB_B_SPAR -BLKB 1 ; SPARE BYTE 
945 $DEF CDB_B_DIAG -BLKB 1 ; Diagnostic info byte 
946 SDEF CDB_W_DIAG2 ~BLK 1 : Second word of diagnostic info 


000000A8 


00000001 


= VAX/VMS QNA driver 
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1 47 
1 $ SDEF  CDB_G_COUNTER 
1 49 SDEF  CDB“W7ZERO -BLKW 
1 3 SDEF  CDBILIDBRCTR  .BLKL 
1 SDEF  CDBIL“MBLCTR  <BLKL 
120A 3 SDEF  CDBTWIRFLMAP  .BLKW 
12¢ SDEF § CDB"WTRFLCTR <BLKW 
1206 46-954 ASSOME COB_W_RFLCTR E 
1 ; 955 SDEF  CDB_L_BRCCTR ~ .BLKL 
1 996 SDEF  CDBTL“MBYCTR  .BLKL 
1 6 957 SDEF  CDB"WTOVRCTR  .BLK 
or 3 : SDEF  CDB"WILBECTR BLK 
13A SDEF  CDBTL"OBSCTR  -BLKL 
1 5 960 SDEF  CDBTL“MBSCTR  .BLKL 
142 961 SDES  CDBTL“BSMCTR <BLKL 
146 96¢ SoEF  CDBTL“BSICTR  .BLKL 
014A 963 SDEF  CDBTL“BIDCTR -BLKL 
Ode 964 SDEF  CDBTL“BSNCTR  .BLKL 
0152 965 $DEF  CDBTL“MSNCTR =. BLKL 
0196 966 SDEF  CDBTWTSFLMAP .BLK 
0158 967 SDEF  CDB"WTSFLCTR  .BLKW 
015A 968 ASSOME CDB_W_SFLCTR E 
015A 969 SDEF  CDB_W_CDCCTR ~ .BLKW 
015¢ 970 
015C 971 SDEF  COB_W_UFDCTR  .BLKW 
015 976 SDEF  CDB"W"SBUCTR  .BLKW 
0169 903 SDEF  CDBWIUBUCTR  .BLKW 
O162 16 SDEF  CDB_L_RINGMAP  .BLKL 
0166 97 
0166 978 
0166 979 $DEF § CDB_G_MAPPED 
0166 80 SDEF § CDB“G"RRING .BLKB 
01D2 981 $DEF — CDB7G~XRING *BLKB 
020 ORS Sper’ tobe 2am 
20E 984 = 
O20E 985 SDEF  CDB_B_TIM_XMT  .BLKB 
OF 9 § SDEF CDB_B_UNTCNT -BLKB 
10 98 SDEF  CDB“L-UVIBUF SBLKL 
4 9 8 SDEF  CDBTL"PRMUSER -BLKL 
0 18 989 $SDEF  CDBTLTQE “BLK 
0 4 330 SDEF  CDB"W"MODE “BLKW 
4A 991 SDEF  COB™B7STS “BLKB 
0248 996 SDEF  CDB"B"PRM “BLKB 
aC 993 SDEF  CDBTB"MLT -BLKB 
2b 996 SpEE EDBCBTCON Bu 
dE $31 CDB_C_SETPRA = .-CDB_B_SETPRM 
4E 399 $DEF  CDB_G_PHA .BLKW 
54 10 0 SDEF  CDB"G"HWA -BLK 
5a 1001 SDEF | CDBG"PHYADR =< BLKW 
60 19 : $SDEF § CDBTB"MULTI “BLKB 
61 1003 SDEF  COB"B"MLTTBL § .BLKB 
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; Start of counters 


3; Seconds since last zeroed 
; Messages received 
; Multicast messages received 
; Messages received in error = bitmap 
$ ngsseues received in error 
DB_W_RFLMAP+ 
; Bytes received 
Multicast bytes received 
Packets lost due to hardware buffers 
Packets lost due to system buffer error 
Messages sent 
Multicast messages sent 
Messages sent - several errors 
Messages sent - 1 error 
Messages sent - initially deferred 
Bytes sent 
Multicast bytes sent 
: Send failures - bitmap 
; Send failures 
DB_W_SFLMAP+ 
3; Transmit collision check failure 


3; No protocol type counter on receive 
: System buffer unavailable 
; No buffer available on all PTs 


; Mapping information for RINGs 


: Define the UNIBUS mapped portion of the CDB (QNA data structures) 


3; Start of UNIBUS mapped portion of CDB 
-K LENGTH ; Recv ring buffer 
K_LENGT ; Xmit ring buffer 
: Size of UNIBUS mapped portion of CDB 
; Size of CDB to zero (everything from 
3; _the Sogtagtng to this point). 
3: Transmit timer cell 
3; Number of active units (UCBs) 
3 u~VAX I buffer area address 

3; Promiscuous user's UCB address 
QESC_LENGTH ; Timer queue element 

3; QNA hardware mode 
; Controller status 
3; Promiscuous mode 
3; Multicast (all) address state 


Start of settable parameters 
Controller mode 
Size of settable parameter List 


User defined physical address 
Hardware physical address 

The current hardware address 

Number of entries in Multicast List 
Number of entries in MLTTBL 


M7 
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SDEF CDB_G_MULTI -BLKW i C_MLT ; Multicast address table 
SDEF COB_G_MLTTBL -BLKW *MAX— =f MLT 3; Multicast address generation table 
SDEF CDB_B_AQUOTA -BLKB 1 3; Additional QUOTA availabl 
SDEF CDB-B_MQUOTA -BLKB 1 3 fon aman extra QUOTA allowed 
SDEF CDOB_C_LENGTH 3; Size of QNA CDB 


-VIELD coe $TS,0,<=- 
<INTTED, >, = 
<RUN, ,M>, 
<FORK “PEND, .M>,~ 
<Tl aR 


< 
<SETUB,, - 


+P ie bit for CDB_B_STS 


hovles is running 

Fork process is pending 

Timer is active 

Fatal error has occurred 
Device is in SETUP mode 


-VIELD (CDB_MOD,0,< ; Bits for mode definition CDB_W_MODE 
<MUCTI [. ue - ; ALL multicasts enabled 
<PROM, .H> = ; Promiscuous mode enabled 


OOOCooooooooooo 
MPPOPoPoPononononornononopnononofronnrnnrn 


ee ee ee et ee ee et ee et ee 
i kk kk kt tt 


DOSCSOSOCOODSDOOOOODOOOOOO 
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| 
| 
| 
| 
SDEFEND CDB ; End of QNA CDB definitions 
| 
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: P2 buffer header definition 
SDEFINI P2B 


SDEF P2B_L_POINTER .BLKL 1 ; Pointer to start of dat 

SDEF P2B-L_BUFFER -BLKL 1 3; Address o user s data yor 
SDEF P2B_W_SIZE -BLKW 1 : Size of P2 buffer 

SDEF P2B8_B_TYPE BLK 1 3; Type —e 

SDEF P2B-B_ = SPARE BLKB 1 3; Spare yes 

SDEF P2B_C_LENGTH 3 se A P2 buffer header 

SDEF P2B_T_DATA 3; Start of data 


SDEFEND P2B 
: Diagnostics buffer definition 
SDEFINI DIAG 


FW 9 OODNOA UNE WWIN 9 O OONAU EWN OOONAUS WOON 


RA AA AA AAR AR AAA AAA AAA BE BE EE EE BAA AA AAAI 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
10 
10 
1045 ; 
+ 3; Driver independent portion of diagnostics buffer 
1 $DEF § DIAG_L_DATA -BLKL 1 ; Pointer to start of data 
1049 S$DEF DIAG_L_BUFFER BLKL 1 ; User buffer address 
1050 SDEF DIAG_W_SIZE LKw 1 ; Size of structure 
1051 SDEF DIAG_B_TYPE LKB 1 3 Type of structure 
1052 SDEF DIAG_B_SPARE -BLKB 1 3; Spare byte 
10535 SDEF DIAG_T_DATA ; Start of data 
1054 SDEF DIAG_Q_START -BLKQ 1 ; Start time for Q10 
1055 S$DEF DIAG_Q_FINISH .BLKQ 1 : Finish time for Q10 
1056 SDEF DIAG_L_ERRS -BLKL 1 3; Number of device erro 
} SDEF DIAG_L_LEXTRA -BLKL 1 ; Number of longuords that follow 
19 : Driver dependent portion of diagnostics buffer 
10 Sper DIAG_L_DEPEND 
1062 SDEF DIAG_W_CSR -BLKW 1 ; Last port CSR contents 
19 SDEF DIAG_W_ERR -BLKW 1 ; Ring entry error sumnery 
WL . ; Extra ring entry error info 
1 SDEF DIAG_W_ERR2 BLKW 1 E i f 
18 5 SDEF DIAG_G_HWA -BLKW 3 ; Hardware physical address 
18 ie 3; The following is valid only on read (receive) Q10s 
1069 Sper DIAG_T_RDAT 3; Start of receive data 
1 Y SDEF DIAG_G_ Dest -BLKW : Destination address 
1071 SDEF DIAG-G_SRC -BLKW ; Source address 
1 1 SDEF DIAG_W_ TYPE -BLKW 1 :; Protocol type 
1073 SDEF DIAG_C"LENGTH ; Start of data 
Be o s i 
} Re DIAG_C_EXTRA DIAG_L_DEPEND/4 
! i. SDEFEND DIAG 
107 5, Sone buffer header definition 
107 
' SDEFINI RHDR 
1 § SDEF RHDR_L_DATA -BLKL 1 ; Pointer to start of data 
1 SDEF RHOR-L-BUFFER .BLKL 1 3; User buffer address 
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8 1084 $DEF RHOR_W_SIZE -BLKwW ; 3 of structure | 
A 1085 $DEF RHDR_B_TYPE -BLKB 1 ; Type of structure 
B 1 § SDEF RHDR_B_ SPARE ~BLKB 1 ; Spare byte 
se SDEF RHDR_T_DATA ; Start of data 
o¢ 1 SDEF RHDR_G_DEST -BLKW ; Destination address 
12 1 SDEF RHDR_G_ SRC ~-BLKW ; Source address 
18 4 SDEF RHOR_W_TYPE -BLKW ; Protocol type | 
gh 1091 SDEF RHDR_C_LENGTH ; Start of data 
0000000E Ria : 3 RHDR_C_DATA = .*RHDR_T_DATA 
1A 1094 SDEFEND RHDR 
88 1096 
8 : 3) ; Shareable protocol type data structure 
000 1 35 SDEFINI SHR GLOBAL 
000 1100 SDEF SHR_L_QFL ~BLKL 3 ; Forward Link pointer 
0004 113) SDEF SHR_L_QBL -BLKL 1 ; Backward Link pointer 
Bebe 11 § SDEF SHR_W_SIZE -BLKV 1 ; Size of structure 
OOA 1103 SDEF SHR_B_TYPE -BLX 1 3 Type of structure 
Q000B 1104 S$DEF SHR_B_STS -BiK 1 ; SHR status 
Q0O0C 1105 S$DEF SHR_L_PID -BLKL 1 ; User's PID 
001 1198 SDEF SHR_W_CHAN -BLKW 1 ; User's channel 
0012 1107 S$DEF SHR_G_DEST -BLKW 3 ; Destination address 
01 1138 SDEF SHR_Q_ QUEUES ; Start of queues 
018 1109 SDEF SHR_Q_RCVMSG -BLKQ 1 ; Received messages waiting for IRPs 
OS 1110 SDEF SHR_Q_RCVREQ -BLKQ 1 ; Receive IRPs waiting for messages 
00000002 00 1111 SHR_C_QUEUES = <,-SHR_Q_QUEUES>/8 ; Number of queues 
00 We SDEF SHR_W_QUOTA -BLKW 1 ; User's shared quota 
80 : iz SDEF SHR_C_LENGTH ; Size of data structure 
OO2A 1115 -VIELD SHR_STS,0,<= ; SHR status bits 
002A 1118 <INTTED, .M>,= ; Protocol type is inited 
OO2A 111 | 
4 A tH | 
O2A 111 SDEFEND SHR 
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= VAX/VMS QNA driver 
Standard tables 


1 


16-SEP=- 
g- seen 18 
: -SBTTL Standard tables 
; Driver prologue table 
: DPTAB. = 
END=XQ_END,=- 
ADAPT 


TER=UBA, - 
Uees ize =ucese _xQ_L 
NAMESXGDRIVER 


4 fart BSL_OWNE 


2oke 
ORB ,ORBSW_ PROT Q, 
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END OF DRIVER 
ait TYPE 
ENGTH,- ; SIZE OF UCB 
; DRIVER NAME 
eye OF CONTROLLER INIT 
-IPL$_ Ka F IPL ; FORK IPL 
, IPLS~ XQ"“DIPL ; DEVICE IPL 
; Protection block flags 
PROT_ 16> SOGW ypeth, word 
0 default protection 


L,0 no owner as re" 
CHARACTERISTICS 


UCB,UCBSL “DEV CHAR: sL.= : DEVICE 
<DEVSM_SH 

DEVS! “NET i 

DEVSM-AVL i= 

DEVSM~IDVi- 

DEVSM~ODV 
DPT_STORE UCB,UCB$B_DEVCLASS,B,DC$_SCOM ; Device class 
DPT“STORE UCB, UCBSB_DEVTYPE,6, bts BEQNA : Device t type 
DPT_STORE DE Defau yiter size 


Xx 
DPT_STORE UCB,UCBS$G_XQ_PHA 
defaults for all parameter 
DPT_STORE 


; Store 


DPT“STORE 
DPT_STORE 
DPT_STORE 
C 
DPT“STORE CRB.CRBSL_INTD+V 
CRB. CRESL INTD+V 
DPTSTORE END 
.PSECT $$$115_DRIVER,LONG 
LOCAL STORAGE 


U, <UCBSh ~ONL INE 1UCBSM YENPLA 
Fe , ; No default physical address 


»W,1500 ; Default device buffer size 
-B,1 Default user buffer number 
oW,INIT_C_QU ord : Hardware Buffer Quota 
*BUNMASC -CINPR PRN ; ; "WI" is the protocol mode 
-B.NMASC_STATE_OFF ; Promiscuous mode is OFF 
»-B,NMASC_STATE_OFF ; ALL multicasts is OFF 
+B, NMASC_STATE_ON ; Data chaining is ON 
“BCMHASE“LINCNN oe : Padding s 0 

7B MASE RL INCH, Controler mode is NORMAL 
»B.NMASC_ACC_E © ac inbes mode is default 
XQSDDT ; DDT ADDRESS 

D,QNA_INTR ; QNA interrupt service routine 
Ec$__IRITIAL,D CONTROL INIT: CONT ROLLER INIT ADORE | 
ECSL-UNITINIT,b UNIT oI > UNIT INIT 

ECSL “START DF FLT IN Mit INIT 


dD. 8 
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; Driver dispatch table 


DDTAB DEVNAM=XQ,- 
START=STARTIO,= 


REG_DUMP, 
GBF =<DIAG_C LENGTH>,= 
NEDUCB=CLONED ay’8- ° 
ALTSTARTSALT _START 


7 
r8 
0 
4 
8 ; 
4 ; Function decision table 
4 
38 
94 
32 
39 
98 
99 
00 
01 
02 


ounmon 
—-—m>cC 


xa -FUNCTABLE: | 


NCTAB , 
<WRITEVBLK,WRITELBLK, WRI TEPBLK 
READPELK.S » SENSEMODE , SENSECHAR, S 


<WRITEVBLK ,WRITELBLK, WRI TEPBLK 
READPBLK Ks SENSEMODE SENSECHAR, S 


FUNCTA iB ae 
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DRIVER DISPATCH TABLE 
Start 1/0 operat ation 
Function decision table address 
os NCEL 1/0 entry point 
Ry aes 7 entry — 
Diagnostic buffer s 
;" Cloned UCB ini 1e18C seatton 
; Alternate start I/0 entry point 


oy Functions 
aisbitt LK gREADLBLK, - 


THODE «§ 

eee red Functions 
riapvBLe. READLBLK, = 
ETMODE , SETCHAR> 
WRITEVBLK> : 
DPBLK READVB BLK> ; 
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1 : -SBTTL Local driver storage 
$ : P2 Buffer verification tables 
: SDEFINI PARAM 
SDEF PRM_W_TYPE -BLKW 1 ; Parameter type 
_VIELD pee Ive 0, ge ; Parameter type field 
12,8 M>, ; Parameter type code 
<StRING, {.M3,- ; Parameter is a string 
SDEF PRM_B_FLAG -BLKB 1 ; Parameter flags 
-VIELD PRM_FLG,0,<=- Parameter theg bits 
<MIN, D>, ~ Parameter minimum value present 


<MAX,1,M 
<INVAL IO, {.M>,- 


<CHEEK, 1,">,- 


Parameter maximum value present 
Parameter invalid value is present 
Offset is in CDB data base 

Check values with current 


SDEF PRM_W_OFF -BLKW 1 ; Parameter offset in structure 
-VIELD PRM_OFF,0,<- ; Offset word fields 
<VACUE, {0; M>,- ; Offset value 
~ ied ‘6, M>, - ; Size of field in structure 


SDEFEND PARAM 


2 Define Line parameters 
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00000000 he PRM pus steed : Line parameter buffer size 
LINE~PARAM_wO ; “Write-Only'’ Line parameters 
PARAM NMAS$C_PCLI_HBQ,- ; Hardware Buffer Quota 
OF FSET=UCBS$W_XQ_HBQ,- 
DIDI Ww. MAX=16384 
INVALIDSUCBSM. x0. {NITED 
LINE_PARAM: ; Start of Line parameters 
PARAM wnat PCLI_ACC,=- ; Access mode for protocol type 


OFFSETS =UCBSB_x_ACC,- 


Mi WeNmagc C_ACC_SHR,- 
MAX=NMASC ACC EXC 


PARAM ere PCLI_PRO,- ; Protocol selection mode 
FFSET=UCBSB_ xQ_PRO,- 


UIT 
MIN=NMASC -LINPR_POI,- ;% Accept either point or NI 
MAX=NMASC_LINPR_NI 


De DB ea a a a HOI DW HO OI WO NAAAAAA ANNONA AN ANPOPOPOPUPOFUTIO O00 0000000000 
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PARAM NMAS$C_PCLI_PRM,- 3; Promiscuous mode state 
OF F SE TSUCBSB_XO_PRA,- 


DTH=B,- | 
MAX=NMASC_STATE_OFF,- 
INVALID=UCBSM_X@_INITED 


PARAM NMASC_PCLI_MLT,- 
OFF SET=UCBSB_XG_MLT, - 


=B,- 
MAX=NMASC_STATE_OFF,- 
INVALID=UCBSM_X@_INITED 


PARAM NMASC_PCLI_CON,- ; Controller mode 
OFF SET=UCBSB_X0_CON,- 


H=B,- 
MAX=NMASC_LINCN_LOO,- 
INVALID=UCBSM_XO_INITED 


PARAM NMASC_PCLI_PTY,- 3; Protocol type 
OF F SET=UCBSW_xG_PROTYP, - 


IOTH=W, 
INVALID=UCBSM_XQ_INITED 


PARAM NMASC_PCLI_MCA,- 3; Multicast address List 
OF FSET=UCBSG_XQ_MULTI,- 
Tbe dd LP 
SIZE=2+<6*MAX_C_MLT> ; Maximum size of List 


=B,- | 
MAX=NMASC_STATE_OFF | 


oo 
eee 
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93 1261 
a9 86 PARAM NMAS$C_PCLI_BUS,- ; Buffer size 
9 6 OF FSET=UCBSW_DEVBUFSIZ,- 
09 64 WIOTH=W,= 
9 65 MIN=MIN_PKT_SIZE,- ; User buffer LIMITS 
9 66 MAX=MAX-PKT-SIZE,- 
2 of INVAL ID=UCBSM_XQ_INITED 
09 9 PARAM NMASC_PCLI_BFN,- : Buffer number 
09 % OF FSET=UCBSB_X0_BFN,- | 
09 71 WIDTH=B,- | 
09 ie MIN=0,MAX=255,- | 
09 3 INVAL{D=UCBSM_xQ_INITED 
OA 75 PARAM NMAS$C_PCLI_PHA,=- ; Physical NI address 
OA id: OF FSET=UCBSG_XQ_PHA, - | 
OA 7 STRINGSYES,= | 
OA 78 SIZE=<2+6>,- 
OA ‘9 INVALID=UCBSM_XQ_INITED | 
0B Hi PARAM NMASC_PCLI_DCH,- ; Data chaining on receives 
0B : OF FSET=UCBSB_XQ_DCH,- 
0B WIDTH=B,- 
08 s MAX=NMASC_STATE_OFF | 
0B Bg PARAM NMASC_PCLI_PAD,- ; Padding mode 
0B a OF FSET=UCBSB_X0_PAD,- 
0B 88 WIDTH 
0B 89 
90 
31 
38 
94 
95 
39 
98 


Q 
Q 
0 
0 
Q 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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; Accept all multicast addresses 
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PARAM 


PARAM 


: THE FOLLOWING 
*2aeee 


PARAM 


PARAM 


CIRCUIT_PARAM: 


PARAM 


PARAM 


: Line/circuit counters 


ie Le oY AX/VMS Mac 


NMASC_PCLI_BSZ,- 
OF FSET=UCBSW.X 


THEW, 
MIN=MIN_PKT_SIZE,=- 


NMASC_PCLI_DES,= 


CAN BE ELIMINATED 


NMASC_PCLI_CRC,=- 
OF FSET=UCBSB_Xx 


WIDTH=B,- 
MAX=NMASC_STATE_OFF 


CB$B_X0_MST,- 


ASC STATE ~OFF 


e3o 
ow 
wm 

hk dt 

tt tt 
DBDDDDVBBABDAADADwD 


; Transmit coll 
; Unrecognized frame destination 
; System buffer unavailable 

; User buffer unavailable 


Seso%2e2es 
Or "NM-M 
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; Device buffer size 


; Destination Address for shared 


Protocol Type 


3; CRC enabled 


garbage 


End of table 
Start of circuit parameter table 


; Maintenance state 


; End of table 


; Start of LINE counters 

; Seconds since last zeroed 
; Packets received 

R ; Multicast packets received 


MAP ; Packets received in error 


; Bytes received 

R ; Multicast bytes received 

; Receives lost - Internal buffer error 
; Receives lost - Local buffer error 

; Packets transmitted 

; Multicast packets transmitted 

; Packets transmitted - several errors 
; Packets transmitted - 1 error 

; pockets transmitted - deferred 

= y e 

: Multicast bytes transmitted 


transmitted 


MAP ; Transmi pockets aborted 
sion check failure 
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1 1375 
1 : 1 6 CIRC_CTR: ; Start of CIRCUIT counters 
1 137 COUNTER dBS, » SBLCTR, CIRC ; Blocks sent 
15D 1 4 COUNTER BSN, » SBYCTR, CIRC ; Byer sent 
161 137 COUNTER DBR, » RBLCTR, CIRC ; Blocks received 
165 1380 COUNTER BRC, 32, RBYCTR, CIRC ; Bytes received 
169 1381 COUNTER MNE, 16, MNECTR, CIRC ; Multicast address not enabled 
190 ! ¢ COUNTER UBU, 16, UBUCTR, CIRC ; User buffer unavailable 
171 1384; 
i ! 5 ; MOP read counters return table (in order of COUNTERS returned) 
8151 1 : MOPCTRTAB: ; Start of MOP counters 
0171 1388 MOPCTR 16, ZERO 3; Seconds since last zeroed 
0174 1389 MOPCTR » BRCCTR ; Bytes receive 
SEA 1390 MOPCTR  BSNCTR ; Bytes transmitted 
17A 1391 MOPCTR » DBRCTR ; Packets received 
017D 1 3 MOPCTR » DBSCTR 3 Packets transmitted 
Bigs 139 MOPCTR » MBYCTR ; Multicast bytes received 
183 1394 MOPCTR - MBLCTR ; Multicast packets received 
0186 1395 MOPCTR » BIDCTR : Packets transmitted - deferred 
0189 1 36 MOPCTR » BSICTR ; Packets transmitted - 1 error 
018C 139 MOPCTR » BSMCTR ; Packets transmitted - several errors 
O18F 1398 MOPCTR 16, SFLCTR, MAP ; Transmit packets aborted 
b138 1399 MOPCTR 16, RFLCTR, MAP ; Packets received in error 
0195 1400 MOPCTR 16, UFDCTR ; Unrecognized frame destination 
0198 1401 MOPCTR 16, OVRCTR 3: Receives lost - Internal buffer error 
0198 1386 MOPCTR 16, LBECTR ; Receives lost - Local buffer error 
Q1I9E 140 MOPCTR 16, UBUCTR 3; User buffer unavailable 
O1A1 1404 MOPCTR 16, CDCCTR 3 Transmit collision check failure 
Bing 1e82 MOPCTR ; End of table 
ae ot tA : Calculate total size of MOP counter return data buffer 
00000043 O1ae 1409 MOP_CTR_SIZE = MOP_CTR_SIZE + 1 + 2 + 8 ; Size of counters + MOP header 
00000051 3148 1319 MOP-CTR-SIZE = MOP-CTR-SIZE + XBUF_C_HEADER ; Size of buffer + NI header 
01A6 16 : 
DIAG RF 3; BAD PARAMETER RETURN TABLE 
1A6 1415 ; First pert is validation of Unit against controller. The second part is 
Hy 1016 :; for validation of shared protocol types. 
1g 1213 3; Note that the table is in the REVERSE order from that of the UCB. 
1A6 1420 ASSUME UCBSB_XQ_CON EQ UCB$B_xXQ_CDBPRM 
1A6 1421 BAD_PARAM_TBL: 
0456 is 1 ¢ -Q@ORD NMASC_PCLI_CON 
1A8 1424 ASSUME UCB$W_XQ_BSZ EQ UCB$B_XQ_SHRPRM 
1A8 1425 ASSUME UCBS$B_XQ_PRO EQ itt ae, 
1A8 14 6 ASSUME UCB$B-XQ-PAD EQ UCB$B-XQ~PRO+ 
1A8 14 ASSUME UCB$B-XQ"PRM EQ UCBSB-XQ~PAD+1 
1A8 14 § ASSUME UCBSB_XQ_MLT EQ UCBSB_XQ_PRM+1 
1A8 14 ASSUME UCBSB_XQ_DCH EQ UCBSB XQ MLT+1 
1A8 1430 ASSUME UCBS$B_XQ°CDBPRM EQ UCBS$B-xXQ_DCH+1 
0B1B O1A8 1431 «WORD NMASC"PCCI_DCH 
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186 1338 - -SBTTL CONTROL_INIT = INITIALIZE DEQNA DEVICE 
186 ved ; CONTROL_INIT = INITIALIZE DEQNA DEVICE 
189 1448 ; Functional description: 
186 1445 ; This routine is entered when driver is loaded, system is booted, or 
1B6 1228 ; during powerfail recovery. 
1B6 1447; 
1B6 1408 3 Inputs: 
186 1449; 
1B6 1629 3 R4 = Address of the device CSR 
1B6 1451; RS = Address of the device IDB 
1B6 1026 s R6 = Address of the device DDB 

01B6 1453; R8 = Address of the device CRB 

01B6 1454; 

01B6 1455; IPL = FIPL 

01B6 1456 ; 

0186 1457 ; Outputs: 

0186 1458; 

0186 1459 ; R4,R5,R8 are preserved 

0186 1460 ;-- 

0186 1461 

01B6 1208 CONTROL_INIT:: ; Initialize the DEQNA 

05 0186 146 RSB 3; Return to caller 


<= 
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re -SBTTL CLONED_UCB = INITIALIZE THE CLONED UCB 
CLONED_UCB = INITIALIZE THE CLONED UCB 
Functional description: 


This routine is called by the SASSIGN system service to allow the driver 
to initialize the cloned UCB. The driver is called with process context. 


'$ 
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XQDRIVER = VAX 
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Inputs: 
RO = SS$_NOR 
R2 = UCB’ ad address of cloned UCB 
RS = DDT ad 
R4 = PCB sears 
RS = UCB sddress of template UCB 
IPL = ASTDEL 
Outputs: 
S$_NORMAL 


RO = 5S 
R5 = UCB address of cloned UCB 
ALL other registers and IPL are preserved. 


CLONED_UCB: : ; Cloned UCB tee 
MOVL R2,R5 ; Copy UCB addre 
3; Continue in unit. initialization 


55 52 00 
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-SBTTL UNIT_INIT = INITIALIZE THE DEQNA UNIT 
UNIT_INIT = INITIALIZE THE DEQNA UNIT 
Functional description: 


>< 
re 


Page 33 
MAR; 1 ° ay 


This routine is called at system startup, during driver loading and 

fur ing powerfail recovery to initialize the DEQNA unit and its UCB. 

The UCB is initialized and if power has failed, the device is forced 
to shutdown. 

Inputs: 


R4 = CSR address 
RS = UCB address 


IPL = FIPL 
Outputs: 
None. 


Bete Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Se Ge Se Se Se Se Se 
: * 


UNIT_INIT:: ; Initialize a DEQNA unit 
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a a a a a a a at td td od = 2 = = = = SS = = 2 3 2 SS — 2 8 2 


3388 JSB G* INISBRK peer TEMP tee 


PUSHR #*M<RO,R1,R2,R3,R4,R5> =; Save all regs 
BBS #UCBSV_POWER,UCB$W_STS(R5),15$ ; Br if powerfail 


Initialize UCB queue Listheads, and the petater (within the NI device 
dependent UCB extension, UCBSL_NI_MLTPTR) to the multicast address table for 
this protocol type. 


MOVAB UCBS$G_XQ_MULTI(RS),- : Initialize the pointer to this 
UCBSL-NI-MLTPTR(RSS ; protocol's multicast address table 

MOVL #UCBSC_XQ_QUEUVES,RO ; Get number of queue Listheads in UCB 
MOVAB UCB$Q_XQ GUEVES(R5).R1 ; Get address of queue Listheads 

10S: MOVAL (R1),TRIT+ ; Set forward Link pointer 
MOVL =-4(R4),(R1)4 ; Set backward Link pointer 
SOBGTR RO,10$ : Loop if more Listheads 

15$: TSTW UCBSW_UNIT(RS) ; Is this unit 0? 
BEQL 17$ ; Br if yes - leave TEMPLATE bit on 
CLRW UCBSW_ERRCNT(R5) ; Only unit #0 may List errors 


We must find the address of unit 0, so we can check if the QNA is ONLINE. 
If the QNA is OFFLINE, then we mark each UCB as being OFFLINE. 


MOVL UCBSL_DDB(R5),R ; Get address of QNA sy 

MOVL DOBSL_UCB(RO).R ; Get address of UNIT 0 UCB 

BBS #UCBS0_ONLINE,- ; Br if QNA is ONLINE 
UCBSW_STS(RO),17$ : 

BICW #UCBSA_ONLINE,- ; Else, mark new unit as OFFLINE 
UCBSW_STS(R5) : 
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For u-VAX I, we will have to allocate a physically contiguous buffer 


; area for perfoming 1/0 on the Q 


épuise “8 608>,- . 
<130'6 60$>.- 


730,60$>,- 
<uv1,20$>> 


B_L_UV1BUF (R4) 


MOVL UCBSL_CRB(RS) ,R1 

MOVL § CRBSL-AUXSTRUC(R1),R4 

BNEQ 23$ 

BSBW ALLOC CbB 

BLBC OséaR 

MOVL Enea AUXSTRUC(R1) ,R4 
60$~ 


= 


UV1_BUFFER_LENGTH = <UV1 BUFFER AREA + 511> & <*C511> 
= UV1_BUFFER_CENGTH / 512 


ROVZUL oy! BUFFER PAGES,R1 
JSB Ay} enataleatll 


s 
MOVL peést ec 

CRBSL Stn ye RG 
MOVL  R2,CDB_L_UV1BUF (R45 


MOVZBL #3*MAX_C 

MOVAB tris Ra- “MULTI CRS), R1 
I pease ec (RS), 

MOVL CRBSt “RUKS TRUE ERS), R4 
BSBW ALLOC_CDB 

MOVL  &#<XQ_SOFT_M POW 


xQ_CSR_M ERRLRS 
BSBW SCRED FORK 


POPR PMcRO, R1,R2,R3,R4,R5> 


For u-VAX I, allocate buffer area 
For all others, skip buffer area 


; Get CRB address 


; Get CDB aceress 

; Br if present 

; Else, try to allocate a CDB 
: Br if error 


; ; Get CDB address 


Is the buffer area allocated? 
: Br if yes, continue 


; Round to a page 
; Number of pages 


3; Number of ohess to allocate 
3 a erase © 


ysically=-contiguous memory 
ip ahead on error 


; Get CRB address 
; Get CDB address 
; Save buffer area address 


; Get size of multicast List in words 
; Get address of multicast List 

; Init multicast table 

; Loop if more 

; Get CRB saeress 

; Get CDB address 

; Br if present 

: 5.8? ot = atlecate a COB 


BBC #uCBSV_POWER,UCBSW stsRi)y $08. 
WER@TO>! 


"Br. if. net powerfail 
indicate cause of error 


3; Schedule fork process 
; Restore regs 


Done 


4 | 


] 
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4 1338 . -SBTTL FFILINIT = FFI INTERFACE INITIALIZATION ROUTINE | 
f i ? ; FFILINIT = FFI INTERFACE INITIALIZATION ROUTINE | 
f 16 : ; Functional description: | 
70 1604 ; This routine initializes the FFI interface. Currently the UCB must | 
70 1605 ; have been initialized prior to calling this routine, in the future 
70 16 $ 3; this routine ay have to initialize the UCB and DEQNA. Therefore, 
f 168 3; there may be a fork involved in the call to this routine. 
BIE EH: trou 
8 70 1611 ; R3 = Address of qeivere descriptor for parameter buffer 
7 191¢ : R4 = FFI block address 
0270 1613; 
0270 1614 ; IPL = SYNCH 
0570 1618 ¢ out 
; Outputs: 
0370 igi9 out? | 
027 1618 3 RO = Status of request 
0 8 1619 ; ALL other registers are preserved. 
0270 1620 ; 
b578 1621 ;-- 
0270 16 : ASSUME IPL$_SYNCH EQ IPL$_XQ_FIPL 
8378 16235 FFI_LINIT:: 
3E 29 1624 PUSHR #*M<R1,R2,R3,R4,R5> 3 Save registers 
50 D4 0872 1625 CLRL RO : Assume failure | 
55 34 A4 DO 0274 1626 MOVL FFISL_DL_UCB(R4) ,R5 :; Get UCB address 
04 0278 1627 BBC U XQ_RUN,=- ; Br if device not ready | 
OF 68 AS 027A 16 8 UCB$W_BEVSTS(R5) ,90$ 
O34C'CF 9E O027D 16 MOVAB) W*XMT_FFI_START,=- ; Return address of XMIT routine 
10 A4 0281 1630 FF ISL XMIT(R4) 
018D C5 54 DO 0283 1631 OVL R4,UCBSL_XQ_FFI(RS) 3; Save FFI address 
50 01 QA 0288 16 ¢ MOVZBL #1, 3; Return success 
3 BA 0288 1633 90S: POPR #*M<R1,R2,R3,R4,R5> ; Restore registers 
05 028D 1634 RSB ; Return to caller 
O28E 1635 | 
j 
| 
| 
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. ~SBTTL XMT_FDT = TRANSMIT 1/0 OPERATION FDT ROUTINE 
XMT_FDT = TRANSMIT I/0 OPERATION FDT ROUTINE 
Functional description: 


XQDRIVER = VAX/VMS 
¥0e-008 XMT_FDT = 
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This routine sets up the internal function code for transmit and 
transfers control to the exec buffered I/0 write FDOT routine. 


The Q10 parameters for WRITES are: 
Pl = Address of the data buffer 


P2 = Size of the data buffer 
P>5 = Address of buffer containing the destination address 


** The driver can never do direct 1/0 on XMIT requests, because ** 
; *** the QNA buffer address cannot begin on an odd byte boundary. att 
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ee Also, the FAST interface cannot operate on DIRECT 1/0. hl 
Inputs: 

R3 = IRP address 

R4 = PCB address 

R5 = UCB address 

R6 = CCB address 

R7? = FUNCTION CODE 
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IPL = ASTDEL 
Outputs: 
RO-R2,R8,R9 are destroyed. 


ABORTIO_BR: 
BRW ABORTIO Abort the I/0 request 


XMT_FDT:: 
CLRQ 


Long branch to ABORTIO 
; Transmit FDT routine 

IRP$Q_STATION(R3) ; Zero the destination address 
tt 3 eh as dS ti ; Assume we are a non-promiscuous user 
IRP$W_XQ_PROTYP(R3) ; 
P5( 3 
108 : 


APY ,RT ; Get address of destination address 


Br if given 


| 
If the user is in shared mode, then he does not have to supply a destination 
address with each transmit operation. The destination address will be gotten 
from the SHR data structure. 


03 EO BBS #UCBSV_XQ_ SHARE ,- ; Br if shared user 
| 68 A UCBSW_DEVSTS(R »,20$ ; 
0 OC 9A 10$: MOVZBL S*#SS$_ACCVIO,R ; Assume access violation 
IFNORD #6,(R1J,A R ; Check access to buffer 
MOVL (RI), IRP$Q_STATION(R3) 33 Save destination address 


40 AS, 61D 
44043 O04 Al B MOVE 4 (R1S,IRPSO_STATION+4(R 


ASSUME NMASC_STATE_ON EQ 0 
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ASSUME 
BLBS 
ADDL 
IFNORD 
MOVW 
MOVZBL 
MOVL 
+} a 


ASSUME 
ASSUME 
CLRQ 


ASSUME 
MOVW 

ASSUME 
ASSUME 
MOVZBW 


MOVL 


C 


/O OPERATION FOT ROU 'S-SEP=1984 00:2 


NMASC_STATE_OFF EQ 1 
UCBSB_XQ_PRM(RS),30$ —_; 


#6,R ; 
#2. (R1),ABORTIO_BR ; 
(R41) RSW XQ_PROTYP(R3) 
$*#55$_BADPARAM, RO 

P1(AP) 7RB 


Rt WIN PKT_SIZE ; 
#MIN_PKT_SIZE,R1 : 
#CXBSC_HEADER,R1 : 
#°M<R3-RG,R5> : 
G*EXESBUFFRQUOTA : 


G°EXESALLOCBUF 


a a 
mm 
oO 
oo 


XBSL_FL+4 


(SP) ,R2 : 


7:44 VAX/VMS Macro V04 
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; Save reg! 
; Check if process has sufficient quota 
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IVER.MAR; 1 


Br if user is not promiscuous 
Point to protocol t 


pe 
; Check access to buffer 
; Get protocol type from user P5 buffer 
; Assume bad parameters 

; Get starting address of user buffer 
; Get Length of user buffer 

; Br if zero length buffer 

; Retrieve buffer parameters 

; Check accessibil ty of user buffer 
: ACCESS) 


(No return on NO 


; Returns IRP$W_BCNT 

; Is buffer at Teast minimum? 

; Br if yes, okay 

; Else, allocate minimum sized packet 


Calculate length of buffer needed 
sters 


Br if quota check failure 


; ny ogate CXB buffer for output 


f LBC allocation failure 


; Retrieve address of IRP 

; Get JIB address 

; Adjust buffered 1/0 quota 

; Set number of bytes charged to quota 
; Save CXB address in IRP 

; Save pointer to CxXB 


Clear Link cells 


; Set size of structure 


; Set structure type 


Get back CXB address 


ASSUME CXBSC_HEADER EQ CXBST_T_DATA+XQ_C_HEADER 
MOVW #CXBST_T_DATA SxBSy_BOFF (Re? ; Setup offset to start of data 
MOVAB CXBSC_READER(R2) ,R2 : Get address of data portion of buffer 
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18 A2 3A ~B0 
52 48 A2 9E ; 
62 68 * 28 4 MOVCS R9,(RB),(R2) ; Move data to system buffer 
C BA 4 POPR #*M<R2,R3,R4,R5> : Restore registers 
4 SETIPL UCBSB_FIPL(RS) : Syne access to UCB 
98 4 PUSHL R ; Save IRP address 
4 BSBB XMT_START ; Do common processing 
3 BED 4 POPL R : Restore IRP address 
8 ‘ 4 BLBC RO, ABORTIO ; Br error in processing request 
00000000 ' GF 4 JMP G*EXESQIORETURN : Exit Q10 service to await completion 
38 386A 50 908 POPR #*M<R3,R4,R5> ; Restore registers 
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XMT_FOT = TRANSHI 


17 0346 1751 ABORTIO: JMP G*EXESABORTIO 
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; Abort the I/0 request 
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T FAST INTERFACE TRA gr SE =19 4 0:54 (CDORIVER.SRCIXQDRIVER.MAR; 1 

. -SBTTL XMT_FFILSTART = START FAST INTERFACE TRANSMIT OPERATION 
XMT_FFI_LSTART = START FAST INTERFACE TRANSMIT OPERATION 

Functional description: 

This routine is called to start a transmit operation. If the QNA is running 
then the request is given to the xmit wait queue for the QNA. If there is 

a free ontey in the transmit oo“ and there are sufficient map registers to 
map the buffer then the request is given to the QNA immediately, else the 
request is left on the xmit wait queue until another request completes. 
Inputs: 


R3 = CXB address 
R4 = FFI address 


IPL = SYNCH (same as FIPL) 
Outputs: 


RO,R3 are destroyed. 
ALC other registers are preserved. 


If the request cannot be queued, then the FFISL_XMIT_DONE entry is 
called immediately with the following: 


RO = Status of transmit request 
R35 = CXB address 
R4 = FFI address 


ASSUME IPLS_SYNCH EQ IPL$_XQ_FIPL 

XMT_FFI_START:: ; Start FAST interface transmit request 
PUSHR #*M<R1,R2,R4,R5> ; Save registers 

MOVL FFISL_DL_UCB(R4) ,R5 ; Get UCB address 


; For the FFI Interface, we will save the UCB address 


MOVL  R5,CXBSL_T_UCB(R3) ; Save UCB address 
ASSUME CXB$L_T OCB €Q _CXBSL_T_IRP 
BISB = #1, CXBSC_T_uCB(R3) ; «--indicate this is a UCB address 


SUBW #XQ_C_HEADER,CXBSW_BOFF(R3) ; Back up offset for Ethernet header 


ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC_STATE_ OFF EQ 1 
BLBS $UCBSB-xXQ_PAB(RS) ,20$ ; Br if padding is disabled 

SUBW = #XQ._ C“CNTSIZ,CXB$W_BOFF(R3) ; Else, skip Length field of buffer 
ee CXBSY~BOFF (RS) .RI ; Get offset to start of data 

ADOL R1 R ; Set R2 to start of header 


ASSUME XBUF_G_SRC EQ XBUF .6_DEST +6 

mOVa CXBSO_STATION(RS) ,= ; Store destination address 
XBUF G_DEST(R2) 

ASSUME XBUF_Q_TYPE EQ XBUF_G_SRC+6 
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° ; Store our source address 
R5),- 3; Set PROTOCOL TYPE 


; Try to wy of A eepattin 
; Pr 4 succ 

get back FFI address 
Reals e request in error 
; Reetess registers 
; Return to caller 
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TRANSMIT OPERATION 23 P=1984 69:3 
-SBTTL XMT_START = START TRANSMIT OPERATION 


; XMT_START = START TRANSMIT OPERATION 


_ 
ra 
27-7 
ee 


; Functional description: 


This routine is called to start a transmit operation. If the QNA is running 
; then the request is given to the xmit wait queue for the QNA. If there is 

; a free entry in the transmit ring and there are sufficient map registers to 
; map the gut er then the request is given to the QNA immediately, else the 

; request is left on the xmit wait queue until another request completes. 


** The driver can never do direct 1/0 on XMIT requests, because ** 
*** the QNA buffer address cannot begin on an odd byte boundary. tee 
ee Also, the FAST interface cannot operate on DIRECT 1/0. we 
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1 
1 
1 
1824 
! 5 
1859 
1828 
1829 
1830 
} 1 
1838 
1834 
1835 
1836 
1838 
nputs: 
BE IR tno 
0 1841 Re = CXB address 
0 1 4g R35 = IRP address 
8 : re RS = UCB address 
8 HH 1845 IPL = FIPL 
tH i Outputs: 
b3er 1849 RO = Status of transmit request 
O38F 1850 R1,R2,R4 are destroyed. 
Sa 
O38F 1 3g -ENABL LSB 
8 8F 1854 XMT_START:: ; Start transmit operation 
04 #«€0 8F 1855 BBS #UCBSV_XQ_RUN,- ; Br if unit is in RUN mode 
10 68 AS 6 31 36 UCB$W_BEVSTS(RS) ,30$ 
50 2004 8F 3C 0394 1 28 10$: MOVZWL #SS$_DEVINACT,RO ; Assume unit not started yet 
E1 0399 185 BBC #UCBSV_XQ_INTERLOCK,- : Br if unit is not re-starting 
05 68 A 98 1860 UCB$W_BEVSTS(R5),20$ =: on it's own. 
50 0204 8F 3C HK 1861 MOVZWL #SS$_OPINCOMPL RO ; Else, return different error code 
05 a : $¢ 208: RSB ; Okay to leave now 
24 a8 5 D0 Ag 1 $e 30$: MOVL R3 ttt re eee} ; Save IRP address 
0094 C3 04 O3A8 1865 CLRL = TRPS$L_xO SETUPCR ) - Indicate no SETUP buffer present 
1A A2 32 A 8 AC 1 66 MOVW IRP$W_BCAT(R ), CXBSW_BCNT(R2) ; Set BCNT in CXB 
54 ; ry) B1 186 MOVL R3,R4 ; Copy IRP address 
53 D 4 ' rt: MOVL R2,R3 ; Copy CXB address 
ae 29 ASSUME NMASC_STATE_ON EQ 0 
7 187 ASSUME NMASC_STATE OFF EQ 1 
04 ed £3 : BLBS UCB$B_XQ_PAB(RS) ,40$ ; Br if pedding is disabled 
18 A A f 187 SUBW = #@XQ_C“CNTSI7,CXB$W_BOFF(R3) ; Else, skip Length field of buffer 
51 18 AS 3C O03CO 1874 40S: ROVZL CKBSY"BOFF RS) ,R1 ; Get offset to start of data 
te. ot €t C4 «1875 ADDL oRS,R ; Set R2 to start of header 
ce 1 ¢6 ASSUME XBUF_G SRC EQ XBUF_G_DEST+ 
40 AG 7D C8 «187 mOVQ IRP$O_STATION(R4) ,= ; Store destination address 
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QNA driver 16-SEP-1 7:44 VAX/VMS Macro v04-00 Page 4 
= START TRANSMIT OPERATION g- -SEP-19 138 88: 35; 754 (CDRIVER.SRC ex QDRIVER.MAR; 1 ° (1 
XBUF_G_DEST(R2) 
ASSUME xBUF @_TYPE EQ XBUF_G_ ox te 
MOVQ Ue ze sh paatgs?o= Store our source address 
MOVW nea XG_PROTYP(R4),- ; Store PROTOCOL TYPE 
W_TYPE(R2) 
MT INITIATE: : ; FAST Interface entry point (FFI) 
; enputes 
3 = UCB +s hte 
3 = (XB addre 
; R = Start oderess for Ethernet header 


MOVB #XQ_FC_V_XMIT,CXB$B_XQ_FUNC(R3) ; Set function request in CXB 
ASSUME NMASC_STATE_ON EQ 0 

ASSUME NMASC"STATE_OFF EQ 1 

BLBS UCBSB_XQ_PAB(R5),60$ =; Br if padding is disabled 


PADDING IS ENABLED: 
Adjust byte count to include size field and store count field. 


MOVW Tae yy a rtit - 3; Else, store size of data-only 
F_Q SIZE(R2 portion of buffer in message 
ADDW mx ee tnisiz. CXBSW_ seur dias ; And account for count field 
; Allow buffer size up to Ethernet max buffer size for transmit operations. 


60S:  CMPW §CXBSW_BCNT(R3),#MAX_PKT_SIZE ; Is buffer size bigger than 
3 lar pee Ethernet buffer allowed? 


90$ ; Br i 
80$: MOVZWL #SS$_IVBUFLEN,RO ; Assume “bad buffer length 
R ; ELSE, leave now 


; Get CRB address 


90$: MOVL UCBSL_CRB(R5) 


MOVL  CRBSL “fies TRUE CRS) . R46 : Get CDB address 

BBC #COB_STS_V_RUN ; Br if QNA not running 
coB_6 *STS(R4) , 1008 : 

ADOW #XQ~-C"HEADER,- : Adjust byte count 
CxB$0_ BCNT (R3) : for header info 


3; If running in the SHARED-LIMITED mode, then we must use the destination 

; address from the SHR_ data structure. Unless the given destination address 
; is a multicast address. For the SHARED=~ DEFAULT user, we must make sure that 
; destination address given is unique! 


: BBC #UCBSV_XQ_ SHARE ; Br if NOT a shared user 
UCBSW- “DEUSTS(RS), NO_SHR’ ; 


: Try to find a match on PID/CHAN. Returns pointer in R1 


ASSUME CXBS$L_T_IRP ex pst. T_UCB 

BLBS CXBSL-T_IRP(R 3 100 > Br if FFI user, return failure 
PUSHL 3; Else, save to address 

MOVL area. T_IRP(R3),R3 3 


is : Get IRP addre 
BSBW MATCH-SAR ; Try to find the SHR data structure 
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iver ~ pa lene 68 3f 
T TRANSMIT OPERATION =SEP=1984 
BEQL 1108 
POPL Rs 
100$: BRW 108 
110$: POPL  R3 
CMPL - UCBSL_XQ_DEFUSR(R5) ,R1 
; BEQL SHR_DEF 
: This is a SHARED-LIMITED user. 
: BLBS = XBUF 6 DEST(R2),.NO_SHR 
MOVL R_G_BEST(R1),- 
SNBOFG CEST (RD) 
MOVW SHR_G_ “pepe el Ri) » 
XBOF -G_DEST+4 (Re) 
BRB NO_SHR ~ 
-DSABL B 


: This is a SHARED-DEFAULT user. 


SHR_DEF :MOVAB UCB$Q_XQ_SHARE(R5) ,RO 


10$: MOVL sua a _QFL(R1),R1 


NO_SHR: 


section. 


C XBUF _G_DEST 
cD BSCT 
WE CXBSW"BCNT( 
RO,CDB_L_MS 


0$ 


COB Mes oe ee ee eee 


(R2),2 
R(R4S 

R3),RO 
NCTR(R 


z2anuoO 


4) gh 


20$: 
f we are running in point-to-point mode, then queue xmit on wait queue 


f we are waiting for run! 


CMPB #NMASC _LINPR 4 
ycese. XQ_PROTR 
BNEQ 40$ 


BBC th tag XQ STACK «= 
is) BEVSTS(RSS, 
INSQUE 


MOVZBL 


Bete Ge Ge Ge Ge 


SUCBS$Q_xQ “aA REOW4 


; Br if m 
: Restore. at address 
3; Else, error 


; Restore CXB address 
; Is this the default user? 
; Br if yes 


Br if multicast address 


Else, get destination from SHR struct. 


Continue in common code 


; Get address of SHR Listhead 
; Save address of start of Listhead 
; Get address of next in list 

; Back at start of list? 

; Br if yes, AB Rds 4: is unique 
; Address a 


; Br if no. - check next in List 
; Hi order of address match? 


; Br if not - check next in List 
; Else, bad parameter code 
; Return to caller 


Do accounting for MULTICAST here. NOTE: this should really 
be done upon completion of request, but it is done here to 
save extra work to check for multicast in the completion 


; Br if NOT multicast address 
; Count multicast blocks sent 
Get BCNT 

; Count multicast bytes sent 


Are we in PT-TO-PT mode? 


Br ifn 
Br if oat in stack wait state 


2 io Else, insert request on wait queue 


Return success 


> 4 
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Osc XMT_START = START TRANSMIT OPERATION oat ELT DRIVER. SRCIXQDRIVER.MAR; 1 ° 
05 : 4 193 RSB 3% Return to caller 
48E 1994 : Insert request on CDB transmit request queue and check if transmit 
r ; 133 ; can proceed. 
00EO D4 «= 63—Ss«éOOE: 4 199 40$:  INSQUE (R3),@CDB_Q_XMTREQ+4(R4) ; Insert at end of xmit queue 
493 199 -ENABL LSB 
49 8 XMT_ALT_START:: ; Alternate start for xmit 
49 PUSHQ R6 3 Save R6,R7 
56 24 A5 DO 0496 MOVL UCBSL_CRB(R5) ,R6 ; Get CRB address 
54 10 a6 00 9A MOVL  CRBSLIAUXSTRUC(R6),R4 =: Get CDB address 
rh 43 4 ; Skip MAP register useage if u-VAX I. Also use different number of slots. 
49E $0 CPUDISP <<790,10$>,- 
49E 4 <780, 7 
8 0 <750,10$>,- 
49E 201 <730,10$>,- 
Ree 4 <UV1,XMT_UV1>> 
0488 2015 10$: ASSUME MAX_C_XMT LE 8 
1B AS «(03)—Ss«00 FB 488 201 FC #0, #MAX_C_XMT=1,CDB_B_XMTMAP(R4),R7 ; Find a free transmit slot 
462. «1 048 ot BEQL 208 : Br if none free 
1 3 Move CXB info into UCB 
53 O0ODC D4 OOF ; REMQUE @CDB_Q_XMTREQ(R4) ,R3 ; Get oldest xmit request 
1D BVS 20$ : Br if none 
7E AS AA 80 MOVW CXB$W_BCNT(R3),UCBS$W_BCNT(RS) ; Set byte count 
52. 18 Me C MOVZWL CXBSW_BOFF(R3),R2 ; Get offset to start of data 
a co ADDL R3,R ; Compute buffer virtual address 
FEOO BF = AB BICW3 #*C<VASM_BYTE>,- : Get buffer offset 
70 AS) 52 R2,UCB$W_BOFF (R5) ; 
: Convert virtual address to physical PTE address 
09 =«C«EF EXTZV S*#VASV_VPN,- ; Get virtual page number 
_ = = S*#VASS_VPN,R2,R2 3 
50 _00000000'GF MOVL GoMMGSGC _SPIBA E,RO ; Get the base address of the SPT 
78 AS = 6042 MOVAL (RO)CR2J7UCBSL_SVAPTE(RSS ; Set address of the SPT entry 


: The following instruction also sets the data path number to the Direct 
; Data Path. 


° ASSUME VECSW_MAPREG+2 EQ VECSB_NUMREG 
ASSUME VECSB-NUMREG+1 EQ VECSB-DATAPATH 


8 AG DO CDB_L-XMTMAP(R4) ,- ; Assume we use preallocated map 
4 AG CRBSL-INTD+VECSW._MAPREG(R6) ; register. 
5 0 TSTL R7 : Is mapping slot the preallocated one? 
; Br yes - all se 
18 BEQL 508 Br if Ll set 


; Else, allocate the map registers 
: Allocate UNIBUS map registers 

7:88  CLRB CRBSL_INTD+VECSB_DATAPATH(R6) ; Reset data path usage 
JSB G* LOC SALOUBAMAP ; Allocate UNIBUS map registers 
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XQDRIVER - VAX/VMS QNA driver 16-SEP-1984 37:44 VAX/VMS Macro V04-00 Page 45 | 
yaa tt XMT_START = START TRANSMIT OPERATION eos 9 $0330.84 YORIVER. SREIRODRIVER.MAR: 1 . (17) | 
0c 29 FS GFA 49 BLBS RO,40$ ; Br if one available 
Oonc c4 6 E af -_ INSQUE (R$),CDB_Q_XMTREQ(R4) Re~insert CX8 on request queue | 
: ; Restore R6, 
50 01 QA 2 MOVZBL S*#SS$_NORMAL ,RO ; Good return 
05 i 30$: RSB ; Return to caller 
; 5 ; Save the map information and map the buffer. 
509 2$ 40S: ASSUME VECS$W_MAPREG+2 EQ VECSB_NUMREG 
509 28 ASSUME VECSB_NUMREG+1 EQ VEC$B_DATAPATH 
34 Ag DO 0509 MOVL CRBSL_INTD+VECS$SW_MAPREGTR6),- ; Save mapping info 
38 AGG 50c 2060 B_L“XMTMAP(R4)TR7]  ; in CbB 
50F 61 50$: SETBIT R7,COB_B_XMTMAP(R4) ; Set mapping slot in use flag 
22 A357 90 0514 os MOVB R7 CxBse XQ_SLOT(R3) ; Save mapping slot number used 
00000000'GF 16 0518 063 JSB G6* fOCSLOADUBAMAPA : Load map registers 
pate B02 3; Find next ring entry and insert data 
52 18 AG) QA 08] 06? MOVZBL COB_B_NEXTXMT(R4),R2 ; Get next ring entry 
18 AG «696 =«S05 068 INCB CDB_B_NEXTXMT(R4) ; Bump ring pointer 
FC 8F BA 05 069 BICB #*CZMAX_C_XMT=1>,= ; Modulo xmit ring size 
18 AG 528 2070 DB_B_NEXTXMT (R45 : 
23 A355 90 O52A 2071 MOVB R XQ_RING(R3) 3; Save ring entry number 
52. 009C C442 D0 052 76 MOVL  CDB_L_XRINGVA(R4)CR2J,R2: Get ring entry virtual address 
6 B4 0534 207 CLRW XMT_W_FLAG(R2) ; Zero the FLAG word 
8000 8F B80 0536 2074 MOVW #xmT_STS_M_LAST,=- 3 Init STATUS word 
08 Ag 3 A 2075 XMT OL R : 
50 AA 3c 6053cC «602076 MOVZ2WL CXBSW-BCNT(R3) ,RO 3; Get BYTE count 
0040 8F 50 81 0540 2077 CMPW RO, #64 : Is packet at least minimum size? 
07 1€ 0545 2078 BGEQU 6 :; Br if yes, okay 
50 00000040 8F DO 0547 2079 MOVL #64,R0 3; Else set to minimum 
50 be 054 080 60$: INCL 8 ; Round up by one 
50 50 FF He 055 081 ASHL #-1,R0,R0 3; Convert to WORD count 
6A 0 AE 055 bas MNEGW RO,XMT_W_LEN(R2) ; Store message length (2's Sonal ements 
04 A2 70 AS BO 0559 08 MOVW  UCBSW_BOFF (RS) ,.XMT_W_ADDR(R2) ; Move byte offset - BA-BAS 
4 A6 FO O55E 2084 INSV CRBSL “INTD+VEC Su MAPREG(R6).- ; Insert BA9-BA15 
04 A2 O07 O09 0561 2085 #9,47,XMT_W_ADDRTR2) 38 
50 34 A6 06 7 EF 0565 2086 EXTZV #7,#6,CRBSL_INTD+VECSW_MAPREG(R6) RO ; Get BA16-BA21 
02 A2 0 B60 0568 2087 MOVW RO. XMT_W_ADDRHI (R2) ; Insert BA16-BA21 & zero descriptor bits 
6 52 00 gf +43 MOVL R2,R6 ; Save xmit ring entry address 
2 944 ; Descriptor bit settings are calculated as follows: (Even, Odd) 
57 O38 : BEG LEN END 
57 9 3 Se se en | 
57 094 : E E E 
57 644 3 E 0 0 
57 96 : 0 E 0 | 
CAR, ec pulse eal 
50 a000 8F B80 057 99 MOVW #XMT_DSC_M_VALID!- ; Build descriptor flag 
57 100 XMT_DSC_M Fon .Re 
11 7C AS EY tA : 1 BLBC UCBSQ_BOFF TRS), 70$ ; Br if even byte boundary at BEGinning 
278 : § : Beginning buffer address is Odd 
578 105 SETBIT #XMT_DSC_V_BEGODD ,RO ; Else, beginning is Odd 
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164 

254 
Hint see ee 1 if odd Py hi @ end is even 
n 
on 


se, endin 
CER URED : 


1 ae Length ~ 1 (complemented) 


Pale buffer address is Even 


cxBsi BCNT(R3) ,80$ 
TDSC C_VAEND NDODD,RO 


“XAIT,- 
1588. na7 “FUNC (R3) 


#XMT_DSC_V_SETUP,RO 
unt QT 6 

0, 2MT_W_ADDRHI (R6) 
C08 _B_RMTCNT(R4) 


Br if even LENgth 
Else, ending is Odd 
Is this a normal XMIT? 


ear the 
et descriptor” bits 
Tally one more xmit in progress 


Br if yee 
Else, indicate SETUP function 
: TOR cell 


; Request and load the port 


POPQ 
DSBINT 
INSQUE 
BNEQ 


BSBW 
90$: ENBINT 
BRW 


XMT_UV1: 


ASSUME 
ASSUME 


FFC 
BEQL 


: Move CXB data 


REMQUE 
BV 
p+ ll 


woyEst 


; Restore R6,R7 
; Sync access to device 
; Insert at end of input queue 


Ocoee DIPL(RS) ; 
: Br if not first entry on queue 


SCDB_Q_INPUT+4(R4) 
LOAD_PORT 
XMT_ALT_START 


; Load port 
; Restore IPL 
; Try for more requests 


3; Transmit operation on u-VAX I 
MAX_C_XMTUV1 LE Z 
MAX-C"XMTUV1 LT MA Must not use all rings 
#0 PHKX. C_XMTUV1, (DB C3” XATHAP {RS « R7 ; Find a free transmit slot 
126$ : Br if none free 


to contiguous buffer. 


ocoe Q_XMTREQ(R4) ,R3 
: Get offset to start of dat 


CXBSW_BOFF(R3) ,R2 
R : : Compute system buffer Bs address 
06 L_XMT =VACRS)ERTI, R1 ; Get cont iquous buffer's VA 


; Get oldest xmit request 
r if none 


5ee Z2R3 3: Save repise sters 
CXBSW Bent a3). (R2),(R1); Copy the 
#*A<R3,R ; Restore A ae 


Find next ring entry and insert data 


£08 8 ofa NT IaAT 4} R2 ; Get next g- ie entry 
gee NEXTXMT(R4) : Bump ring po 


; C C xm SN : Modulo xmit ba nay size 
CDB_B_NEXTXMT (R45 

Re, _XQ_ rth ; Save ring entry number 
R?,CXBSB_XQ_SLOT(R3) i Save napping slot number used 
R7,C XMTMAP(R4) : Set mapp ng slot in use flag 
CDB_L_RRINGVA(R4)CR 


1 & 2],R2; Get ring entry virtual address 
al i PLAe (ne? ; Zero the FLAG word 

xm7_STS Aas ASt ; Init STATUS vere 

XAT _@ *STseR 
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iva XMT_START = START TRANSMIT OPERATION “* iets 1 88: 35:34 54 (CORIVER.SRCIXQDRIVER.MAR; 1 — (17) 
5 1A A 3C O60F 2163 MOVZWL CXB$W_BCNT(R3),RO ; Get BYTE ¢ 
0026 8F Q 61 iz 199 CMPW RO, #64 : Is acket. at "eset minimum size? | 
TE 0618 9165 BGEQU 1108 ; Br if yes, okay 
50 00000040 f D 1A 196 1108 oat 4,R0 3 pe go al nininun | 
: ; Round u 
50 50 FF 8F a 6 ; 1 8 ASHL #-1,R0, “WF 3 Convert’ to 7 WORD count 
06 A 9 Ar 6 1 MNEGW RO KMT Ww (R2) : Store message length (2° s complement) 
50 00C0 C44 Dd 6 170 MOVL COB _L gHT- PACRG)CR71, RO ; : Get contiguous buffer's PA 
9% A 50 oe 6 171 MOVW RO RhT w RODR(R2) ; Move buffer address - BA00-BA0S 
50 0 FO 8F 6 176 ASHL 6,R0,RO 3; Shift down hi order address Lines 
02 A2 8 BO 06 17 MOVW RG. xaT ADDRHI (R2) : Insert BA16-BA21 & zero descriptor bits 
56 yt) Os4, 1% MOVL R2,R ; Save xmit ring entry address 
bee 176 3 Descriptor bit settings are calculated as follows: (Even, Odd) 
642 217 ; BEG LEN END 
64 180 3 E E E 
64 181 3 E 0 0 
064 136 § 0 E 0 
BR ae. fae Se Re EN 
50 A000 8F 80 064 185 Movw #XMT_DSC_M VALID: = ; Build descriptor flag 
FF42 = 331 po67 189 BRW 70$ he ear ; Continue - always even start buffers! 
064A 2189 120$:  POPQ R6 3; Restore R6,R7 
50 01 9A 064D 2190 MOVZBL S“#SS$_NORMAL ,RO ; Good return 
05 bees 1) RSB 3; Return to caller 
0651 13 .DSABL LSB 
0651 194 
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~SBTTL RCV_FDT = RECEIVE 1/0 OPERATION FDT ROUTINE 

RCV_FDT = RECEIVE 1/0 OPERATION FDT ROUTINE 

Functional description: 


The specified buffer is checked for accessibility. The buffer address and count 
are saved in the packet. Then IPL is set to device fork IPL and a@ message is 
available the operation is completed; otherwise, the packet is queued onto 

the waiting receive List. 


The Q10 parameters for WRITES are: 
Pl = Address of the data buffer 
Pe = Size of the data buffer 
P5 = Optional address of the buffer to receive the source address 


Inputs: 
R3 = IRP address 
R4 = PCB address 
RS = UCB address 
R6 = CCB address 
R7? = Function code : 
AP = Address of the first operation specific qio parameter 
IPL = ASTDEL 
Outputs: 


= Status of the receive qio operation 
R3 = IRP address 
= UCB ADDRESS 


R1,R2 are destroyed. 


COPS I a Be at ta hk a td th td od = 2 = 


SDOOOCOSOOSOSOOOOSSOSOOSOOSOSOSOSOSOSOSOOSOOSOOOOOOOOSOOOOOOO 
PAERXQEXRAD AA AAA AAA AAA AA AAA AA AO 
AAXDMWAMNMMAMNMMMMM MMIII 


SOUSS 


PIPIPIPINININPINININININININYNINININPININIPYPININININPINININININININPIPIPIPOPIPIPIPIPIPIPIPIPIPOPIPINIPUNINYINY 2 
DUST Ee BB BB BEE EWN WII III nnononononononony 


AO 
~~ 


RO ODNA NE WIN OOO NAME WN $$ O OO NAME WW SO OO NAME WI 0 ODNOAUES WIN OOOO 


CV_FDT:: 
Check the request params 


CLRW «I RPSW_BOFF (R3) 
MOVZBL S*#SS$_ACCVIO,RO 
PS(AP) TR? 


Read operation FDT 


Set no quota to here 

Assume access violation 

Get address for source address 
Br if none 

Check for write access to buffer 


BEQL 10 
IFNOWRT #RHDR C_DATA,(R7) ,20$ 
BBS F Br if diagnostic buffer given 


#IRPSO_DBIAGBUF ,- 
IRPSW_STS(R3) ,10$ 


MOVZBL #RHDR7C_LENGTH,R1 Get size of header buffer 
PUSHL 


R Save IRP address 
JSB G*EXESALLOCBUF Allocate header buffer 
POPL R Restore IRP address 
BLBC RO,20$ ; Br if allocation failure 
rl) R2, IRP$L_DIAGBUF (R3) ingive buffer add 


ress 
BI #IRPSM_DIAGBUF , IRPSW_STS ; Indicate diag buffer present 
ASSUME RHDR_L“DATA EQ 
MOVAB_ RHDR_T_DATA(R2),(R2)+ 3; Set address of start of data 
ASSUME RHDRTL“BUFFER EQ RHDR_L_DATA+4 
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MADR AYER = VAX/VMS QNA driver 
v04-000 RCV_FDT = RECEIVE I/ 
eo He ee 
MM Be Ba i 
Be 13° 90 068D $ MOVB 
14 A 6 § 108: MOVZBL 
51 04 AC C 069 MOVZWL 
69 ¢ 
a is 
13 0697 83 BEQL 
dO $3? 64 MOVL 
3C A dO H' 65 MOVL 
00000000'GF 16 ry ¢ JSB 
2A AS 20 AB Q6A6 68 BISW 
6AA +4 SETIPL 
is 10 06A 0 BSBB 
06 5 E9 068 71 BLBC 
00000000'GF 17 eet: 5f¢ JMP 
FCBA «631 (0689 $4 20$: BRW 
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Set user buffer address 
at "y $12¢ EQ RHDR_L _BuF FER +4 
ve size of allocation 
RHOR 5. TYPE EQ RHDR_W_ sides 
ADRS BU FIO, (R2)+ Set structure type 
S*#SS$_BADPARAM, RO + Assume illegal size 
Bo taey te : Get size 
208 ; Br if zero - illegal 
P1(AP),RO : Get user buffer address 
RO, IRP$L_XQ_DATBUF(R3) ; Save user VA for completion 
G*EXESREADCAK : ch heck the buffer 
‘ return on NO ACCESS) 
#IRPSM CHAINED, IRPSW_STSiRS)~ | "Allow data gety 
UCB$B_FIPL(RS) ; Raise IPL to lock data base 
RCV Bat ; Process the request 
RO, 208 : Br if erro 
G*EXESQIORETURN S Else, teke nermel return 
ABORTIO ; Abort the request 
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RECEIVE 1/0 OPERATION "orgeE 382 9 :30:8¢ DRIVER. SRCIXODRIVER.MAR; 1 
er ~SBTTL RCV_START = START RECEIVE I/0 OPERATION 
+ RCVSTART = START RECEIVE 1/0 OPERATION 
: Functional description: 


=SEP- 7:44 VAX/VMS Macro V04-00 Page 8, 


Check for device active. Receives cannot be queued to the UCB receive 
queue unless the UCB has been initialized via routine START. They 
cannot be put in the IRP queue since this could result in non-sequential 
receive processing due to the existence of the separate receive queue. 
Inputs: 


R3 = IRP address | 
R5 = UCB address 


IPL = FIPL 
Outputs: 


RO = Status of receive request 
R4 = COB address 


R1,R2 are destroyed. 


OOoOGOGOOOOOOCOOCOCSOSOOSOOOOOOOOSOOO 
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Owns se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


NACT_ERROR: 
50 2004 8F 3C MOVZWL #SS$_DEVINACT,RO ; Setup return status 
05 RSB ; Return to caller 
.ENABL LSB 
RCV_START:: ; Start receive 1/0 operation 
E1 BBC #UCB$V_XQ_RUN,- : Br if UCB is not in RUN mode 
F5 68 AS UCB$W_BEVSTS (RS), INACT_ERROR 
54 24 A5 0D MOVL UCBSL_CRB(RS) ,R4 ; Get CRB address 
54 1004 «OD MOVL CRBSL-AUXSTRUC(R4).R4 : Get CDB address | 
39—«C1 BEQL ; Br if none 
on | BBC #CDB_STS_V_RUN,- : Br if QNA not running | 
ES 024A C4 CDB_B_STS(R4) INACT ERROR 
51 OOAO CS 9E MOVAB UCBSQ7XQ_RCVMSG(R5)7R1 ; Get address of UCB received messages | 


; If running in SHARED mode, then use the Listheads in the SHR_ | 
; data structure. | 


rc BBC #UCBSV_XQ_ SHARE , - ; Br if UCB is NOT SHARED 
UCBSWIDEVSTS(RS),5$ =: 


: Try to find a match on PID/CHAN 
BSBW MATCH SHR | 


o9 6a as 


Try to find shared user 


AAPOR 2 2 M$ DOODODOOO0O OOOO 00000 00000090009 0009090000 VN 
ROOD NOA MNES AND OOOO NE WIN  O OD NA UE WN O OO NOAM EWR 0 ODN UE WI OOONO 
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D6 BNEQ INACT-ERROR ; Br if none - inactive user 
51 Al 9E MOVAB SHR_Q_RCVMSG(R1),R1 ; Get address of received messages 
> Check to see if message is available 
52 91 ~«OOF Ss: REMQUE @(R1)+,R2 ; Dequeue a received message 
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6ED 3 ; «bump pointer to end of List pointer 
0S 1D OED 3354 avs ‘108 5 br 1? none . | 
a} § : Complete receive with available message 
: | 
142) 30 6EF § BSBW FANISHRCV_10 ; Complete the receive 
1 1 oe ip BRB $ 3; And exit 
Der rf : Queue IRP for future message arivial unless IOSM_NOW specified | 
OA 20 A3_ 06 £1 bE 5348 fos: BBC FIOSV_NOW, IRPSW_FUNC(R3),208 ; Br if not READ NOW | 
50 0870 BF 3 OGED e348 MOVZWL #SS$_ENDOFFILE,RO ; Set no message status | 
14DB SFE 45 W 0_DONE ; Complete the 1/0 
04 11 a +8 BRB os 3; And exit | 
070 48 : Queue the IRP to UCB receive wait queue 
070 50 ' ASSUME UCB$Q_xQ_ RCVREQ EQ UCB$Q_xa ee 
978 51 ASSUME SHR_Q-RCVREQ EQ SHR_Q_RCUMSG+ 
08 3 65 ge fa 26 INSQUE (R3) ; Put packet on waiting list 
05 O70A 334 ; Return to caller 
0708 55 -DSABL LSB 


3 $ (R1) | 
O$: MOVZBL $*#SS$_NORMAL RO ; Set Q10 status return 
40$: RSB 
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~SBTTL SUBROUTINES TO FIND SHR DATA STRUCTURE 
: Subroutine to find SHR data structure for user 
: Inputs: 


; = Address of IRP 
UCB address 


Outputs: 
= Address if SHR data structure if match 
is destroyed. 

it set then match. 


R 
R 
Ss 
8 
° 
Z clear then no match. 


itn rae"! Try to find shared user 


; Br if yes = no pid/chan match 
; Check for match 

; Br if none 

; Return in success 

; Return match failure 


L 
tan ; Get next in List 
K 


169 C9 C9 C9 09 09098 SII NNN NIN NSO AAO OOOO 


WN O GONE AE WN SO OONANE WN 20 ODNAUNE WIN OC CONOU EWN OOONOUE WN OOON 
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OVL UCBSL_XQ_DEFUSR(R5),R1 ; Get address of default user 
BEQL 10$ ; Br if no default user 
BSBB CHECK_SHR 3; Check for match 
BEQL 40$ ; Br if match 
10$ MOVAB UCB$Q_XQ_SHARE(R5),RO ; Save address of Listhead 
MOVL RO,R1 ; Copy Listhead address 
ASSUME SHR_L_QFL EQ 0 
208: MOVL (R1 
CMPL R1,R ; Back to start of List? 
BEQL 30 
CH 
20 
40 
RO 
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Subroutine to check if PID and SHR data base match up 
Inputs: 


: Ri = Address of SHR 

3 R3 = Address of IRP 

: Outputs: 

; Z7-Bit set then match. 

3 Z7-Bit clear then no match. 

CHECK_SHR: ; Check for match with SHR data base 
TSTL IRPSL_PID(R3) ; Is this an Internal IRP user? 
LSS 10$ ; Br if yes, only one allowed per UCB 


: Normal Q10 user 

CMPL RPSL_PID(R3),SHR_L_PID(R1) ; PIDs match? 

BNEQ 0$ ; Br if no - try for next 
BRB ; Else, continue checks 
Internal IRP user 


0$: CMPL UCBSL_XQ_PID(R5),SHR_L_PID(R1) ; Is this the Internal user? 


5 et ee ee ee el el el el a tel al MM ah adh ad ah ah ahah ah ahad ad adbabtabtabiad 
—— —§ sQOODODOOOCO 000000000 000000 
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SHR DATA STRUCTURE 
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30$ ifn 
cH TRPSW_CHAN(R3) ,SHR_W_ cuales : Channe sn match? 
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Functional description: 
This routine is called 
; Transport layer to NSP. 
Inputs: 


R3 = IRP address 
R5 = UCB address 


IPL = FIPL 
Implicit inputs: 


Outputs: 


Be Se Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Se Se Se Ge Se 
i + 


ALT_START:: 
BBS 


BPP PPP EPP PP PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP PEE 


r " 
TE START 1/0 ROUTINE 

~SBTTL ALT START = ALTERNATE START 1/0 ROUTINE 
ALT_START = ALTERNATE STARTIO 1/0 ROUTINE 


to the driver. “Intern 
These IRPs are used by higher level software used to request 1/0 and 
; should not be confused with the — built and passed by th 


~$EP=1986 00:2 
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by, ,the xecutive to pass an ‘‘internal’’ IRP 
a 


IRP's are those not built via Q10. 


e 
The action here is to setup the IRP fields 


IRPSL_SVAPTE(R3) = System VIRTUAL 


RO-R5 may be garbage 


4 

4 

4 

4 

4 

4 

4 

4 

4 

¢ 

5 #IRPSV_FUNC,- : 

5 IRP$W_STS(RS) ,10$ 

& MOVW UCBSWIXQ_PROTYP(RS).-_ ; 
5 IRP$W-XQ-PROTYP(R3) : 

5 MOVL.  IRPSL-SVAPTE(R3) ,R2 ; 
3 SUBL3 axa. HEADER, (R25 ,R1 : 
5 MOVW = R1, CXBSW_BOFF (R2) : 
5 MOVB #DYNSC_CXB,CXB$B_TYPE (R25 

6 CMPB  —dUCB$B_&Q_PRO(RS)-- ; 

6 sate #NMASC_LINPR_PO! 

3 CLRQ  IRP$Q_STATION(R3) 

64 5$ PUSHL : 

6 BSBW =. XMT_START : 

6 POPL R : 

? BRB 30$ 3 

$3 10$:  MOVL JRPSL_SVAPTE(R3) .R2 ; 
0 BEQL 0$ : 
7 MOVL  UCBSL_CRB(RS),R4 : 
es MOVL CRBSL ~AUXSTRUE (RA) , RG : 
3 CLRL —sIRPSLSVAPTE(R3) : 
75 


; as if the packet had been processed by the FDT routines. 


ALL pertinent fields of the IRP are assumed to be valid. 


address (not physical PTE address) 


: escent an “‘internal’’ IRP 


If BS then read function 


; MUST be a non-promiscous user 


; Get address of start of data 
; Get the xmit buffer address 
; Form offset to start of data 


Store offset in CX 
; Set structure type to CXB 
Point-to-point mode? 


If so, 
Pick up des 
Save IRP address 
Start transmit operation 
Restore IRP address 
Continue 


; get qeerese of input buffer 


; Get CDB address 
; Make sure SVAPTE is cleared 


: The driver must be prepared to process chained buffers returned from 
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tination from SHR block 
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YON TART = ALTERNATE START 1/0 ROUTINE mets LEE DRIVER. SRCIJXQDRIVER.MAR; 1 ° ay 
q : 128 ; the higher levels. | 
78F 478 BE158: PUSHL CXBSL LINK (RZ) ; Save address of next in Link 
78F 2479 ; CLRL CXBSL_LINK(R2) :; Clear the Link cell 
78F 2480 BSBW ADDRCOULIST ; Else, add it to the receive list 
7 481 66 POPL Re : Get back address of next in chain | 
e : § 38 BNEQ 158 ; Br if more to return 
79 484 eps: BSBW RCV_START ; Start receive operation 
795 2485 308:  BLBC R0,40$ ; Br if error 
0739 : § $B ; Return to caller 
799 2488 40$ BRW 10_DONE ; Post the 1/0 request in error 
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-SBTTL SETMODE_FDT = SET MODE I/0 OPERATION FDT DISPATCH ROUTINE 
SETMODE_FDT = SET MODE FDOT PROCESSING 
Functional description: 


mo 
4. 


37: 7 | 
abs 9 eae AX/VMS Macro V04-00 Page 33), 


Fe ed 


This is the fdt routine for setmode functions. 
There are three functions based on subfunction modifier bit. 


NOTE: That there is no difference on a request to shutdown a line or 
a hi pea € However, a request to startup a circuit is ignored 
completely. 


The Q10 parameters for SETMODE are: 


OOOOOOOOOOOO 
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SN 


P2 = Optional address of buffer descriptor for extended characteristics 


DODOOCOCOCWOOOOOOOOOO 


The Subfunction modifiers are as follows: 


1) CHANGE MODE -- NO MODIFIER BIT. 
This function is done in the STARTIO routine. Control is passed to 
EXESSETMODE to validate the new mode buffer and queue the packet. 


2) INITIALIZE THE UNIT == IOSM_STARTUP SET. 
This function is done partially here and the remainder in STARTIO. 
The action here is to pick up the user buffered 1/0 quota. The gave 
taken from the user is in IRP$W_BOFF. This value will be the 10S8+2 value 
at 1/0 done. The mailbox is enabled and a receive is started. 


3) SHUTDOWN UNIT == IOSM_SHUTDOWN SET. 
This function shuts down the unit and get tonal ly resets the mode. 
A CANCEL 1/0 is performed, all outstanding 1/0 is completed, the 
message blocks are all returned and the unit is left in an idle 
state. This function cannot be done here and the FDT processing is 
that of all SETMODE operations. 

| 
| 
| 
| 
| 


4) ATTENTION AST -=- IOSM_ATTNAST SET. 
This function sets up an AST to be delivered when a change of 
status occurs on the QNA, 


PAA WN (9 ODNAUNE WIN $$ 9 ODNAU EWN $9 OO NAU EWN 0 ODNA UE WIN OOONOUS WN Ha 
Te TE TEI ETE TE Ieee Ie eee Ieee eee Ieee Te rere rere re rere rererere rere rere reiereierererlreTrerereerTeT eee 


db hb eb hk hb hh tb dd Abed bed ddd bed b db Ab Abd bobbed bbb bad bd bedded bedh Ab tbh Ah sh sh sh sh sh sh sh shah sb sh sb sh sh sh ah st wt wee wet et ee ee ee ed 
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Se ee ee ee ee ee wolf o lolol ol ola ol olololololololol a! 


Inputs: 

R3 = IRP ADDESS 

R4 = PCB ADDRESS 

RS = UCB ADDRESS 

R6 = CCB ADDRESS 

R? = FUNCTION CODE 
443 AP = ADDRESS OF THE FIRST Q10 PARAMETER 
79C IPL = ASTDEL 
79C 
79C Outputs: 
79C 
79C R3 = IRP ADDRESS 
79C R4 = PCB ADDRESS 


<= 


sets 


A 
fb 
0094 f 
50 0084 8F 
04 

03 64 a3 
FB9 


57 20 A3 
5C 57 (08 


57. 00C0 C 
00000000'°G 


wm 


51 OOA0 C5 
6 


D7 57 = 06 


0060 8F 
68 AS 


cs 


788 
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RS = UCB ADDRESS 
; RO-R2,R6 are destroyed. 
SETMODE _FDT:: ; SET MODE FDT processing 
5 CLRL IRPSL_SVAPTE(R3) ; Set no buffered packet 
5 CLRQ IRPSL_MEDIA(R3) ; Reset mode data area 
2 L IRP$L_XQ_SETUP(R3) i Indicate no SETUP buffer yet 
MOVZWL #SS$_BEVOFFLINE,RO : Assume unit if offline 
2 #uCBSV ONL INE. = ; Br if unit online 
UCBSW_STS(RS) ,5$ ; 
: BRW ABORTTO ; Else, abort the 1/0 request 


Ww 
bad 


MOVW 


IRPSW_FUNC(R3) ,R7 
BBC #LOSVZATTNAST ,R7, 30 


Get entire function code 
Br if not attention AST 


$ User is requesting an attention AST 
ste UCBS$L_XQ_AST(R5S) ,R7 ; Get address of AST List 


SENN NINA AA AAAAAA A MINIT 


WR SOD NA NE WIN 9 OD NAME WIN 9 OO NAME WN OO OO NAME WR O OONOULS WH" OUOOn Y.:A 


5 

5 

5 

5 

: 

: G*COMSSETATTNAST ; Set up attention AST 

5 ASSUME UCBSV_XQ_INITED EQ 0 

; BLBC UCBSW_DEVSTS(R5),10$ : Br if protocol not active 

5 MOVAB UCBSQ_XQ_RCVMSG(R5),R1 ; Check for empty receive List 

5 CMPL R1, (RT) : Empty? 

57 BEQL 198 : Br if YES, no need to inform user 

57 PUSHL R ; Save IRP address 

57 SBW POKE_USER ; Inform user 

57 POPL ; Restore IRP address 

579 10$: MOVZBL S“#SS$_NORMAL,RO 3; Set success 

5 MOVL UCBSL_BEVDEPEND(R5),.R1 ; Get device dependent information 

: 208: JMP G*EXESFINISHIO :; Complete the 1/0 
583 ; On a circuit request 
584 ; If this is a shutdown then perform a SCANCEL and clear the RUN flag. 
: : If this is a startup then set the RUN flag. 
587 25$: BBC #1O0$V_SHUTDOWN,R7,27$ ; Br if not a shutdown request | 
5 SETIPL UCBSB_FIPL(RS) 3; Sync acces to UCB & CDB 

CLRBIT #UCBST_XQ RUN,- ; Clear the RUN flag 
UCB$W_DEVSTS(RS) 
MOVZWL IRPSW_CHAN(R3) Re 3; Get channel number 

59 ASSUME CANSC“CANCEL EQ | 
59 CLRL R8 ; Set SCANCEL function 
59 BSBW CANCEL ; Perform a CANCEL 
33 BRB 10$ ; Complete the request 

97 27$: BBC _ #IOSV_STARTUP,R7,10$ __; Br if not a startup request | 
59 CLRBIT #XM$V ERR_START -UCBSL_DEVDEPEND(R ) ;% Clear start error flag 
59 ISW UCBSA_XQ-START!UCBSM_XQ_STACK,- ;% Set start and stack states 
6 UCBSW_BEVSTS(RS ; 
6 SETBIT muces’ XQ_RUN,- ; Set the RUN flag 
6 ye W_BEVSTS(RS) 
6 BRB $ ; Complete the request 
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4; 
4 5 ; For everthing except Attention ASTs we must make sure CDB is present 
? § : and we must verify the P2 buffer. | 
51 24 ASD 6 : $0$:  MOVL UCBSL_CRB(RS),R1 : Get CRB address 
0 Al D 609 sit RBSL—~AUXSTRUC(R1) : Is CDB there? | 
PY r es | 
173 ; 611 BSBW ALLOC_CDB ; Else TIlecate CdB 
08 5 8 61g BLBS Ss : Br if successful 
S50 0124 BF 3¢ 61 MOVZWL #SS$_INSFMEM,RO : Set error return 
FB18 1 18 33$: BRW ABORTIO ; Return error 
Sse). CU 16 35$ BSBW GET_CHAR_BUF : Get P2 characteristics 
‘9 50 34 o19 BLBC Sb se _ : Br if error = Abort 1/0 | 
52 £840 CF 5 618 MOVAB LINE _PARAM_WO,R2 ; Assume the Line parameters | 
05 5 09 3 61 BS #10$0_CT 7,36$ ; Br if Line request 
52 F8BD CF 3 620 MOVAB CIRCUTT_PARAM.R2 3; Else, use the g*ree’s parameters 
IF ge 30 0 621 368: BSBW VALIDATE_ ; Validate the P2 parameters 
98 50 «#«=€9 (O 6 § BLBC RO,20$ ; Br if error 
9 57 09 €1 0 é BC #10$V_CTRL,R7,25$ : Br if not a LINE request 
0 624 SETIPL UCBSB~FIPL(RSS : Sync access to UCB's 
JeEe 30 0 625 SBW SAV_MOLTI ; Save the multicast address List 
0090 C D4 0 626 CLRL IRPSL_XQ_SHR(R3) 3; Assume exclusive user 
03 €1 0 627 BBC #uces?_xG sunt - ; Br if not a SHARED user 
UCBSW_DEV ‘ 3 
16 68 AS 0 6 8 CB$W_BEVSTS(R5S5 ,40$ 
0 630 ; Allow the shared user to change the destination node with which 
8 1 3 t is communicating. | 
FEAC 0 6 5 BSBW MATCH_SHR ; Else, try to find shared user 
11 0 634 BNEQ : Br if none found, skip it 
0090 ¢3__—s 51 0 635 MOVL R1,IRPS$L_XQ_SHR(R3) 3; Save the SHR data structure address 
12 Al 0 636 MOVL SHR_G_DEST(R1) ,- ; Save the current destination user 
oocc C5 0 637 UCBSG-xQ_DES(R5) : address in the UCB 
16 Al 086C 2638 MOVW SHR_G_DEST+#4(R1) ,- 3 — 
aay a + Ps eee 
0000 C5 OB6F 639 UCBSG-XG_DES+4(R5) 
$B 641 ; Now we will set the parameters given in the setmode request. But, 
087 o6¢ 3 first if the DEQNA controller is inited we will use the current 
+t eh 3 hardware settings for the defaults. 
51 24 A5 00 O87 645 dos MOVL UCBSL_CRB(R5) ,R1 ; Get CRB address 
51 10 A1 DO 0876 646 OVL  CRBSLAUXSTRUC(R1),R1 =: Get CDB address 
0 7A 64 ASSUME CDB_STS_V_INITED EQ 0 
13 024A C1 €9 A. o78 LBC CDB-B_STSTR1) ,45$ 3 Or tf foncralior net enabled, use 
: e fixed defaults 
51 Bene C1 8 9E 7F 2650 MOVAB CDB_B_SETPRM(R1),R1 ; Get address of setable parameters 
52 ODD CS5~—s9E 84 2651 MOVA UCBSB-XQ_CDBPRM(RS).R2 ; Get address of UCB parameters 
50 1 OA 9 63¢ MOVZBL #UCBSC_x0_CDBPRM,RO 3; Get size of parameters to move 
82 1 7 C 2655 42$ MOVB (R1)+, TR2T+ ; Store CDB parameters into UCB 
FA 50 OF F 2654 SOBGTR RO,42 3; Loop if more 
52 FTE obs 3 $ 655 45$: MOVA LINE _PARAM_WO,R2 ; Get address of verification table 
3 9 6 § BSBW CHANGE PARAM 3; Change the parameters 
51 0090 ¢ D 9A 26 MOVL {pest 20_ SHR (RS) A ; Get the SHR structure address 
of 1 SF 26 8 BEQL 0$ ; Br if not present, ski 
oocc C¢ i) Al 6 MOVL UCB$G_XQ_DES(R5),- FY 
12 Al AS 2660 SHR_G_DEST(R1) ; address into the SHR structure 


eit | 
Else, reset the destination user | 
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FF 
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64 68 AS 
EA 68 AS 
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MOVW UCBSG_XQ_DES+4(R5),- : ane 
SHR_G_DEST+4(R1) : ous 


BBC #1OSV_SHUTDOWN,R7,60$ ; Br if not shutdown request 


: Shutdown protocol request 


ASSUME UCBS$V_XQ_INITED §0 0 
BLBS BSW_DEVSTS(R5S), 5$ ; Br if still inited 
RW 3;_Else, complete 1/0 request now 
S*#XQ_FC_V_STOP,IRPSB_XQ_FUNC(R3) ; Set internal function code 
BRwW QUEPKT 3; Queue request to QNA 


BBS £198¥ STARTUP A? 808 ; Br if startup function 
BRW 180$ ; Else, must be change mode 


: Startup protocol request 


MOVB #XQ_FC_V_INIT,IRPSB_XQ_FUNC(R3) ; Insert internal function code 


If the UCB is already initialized for SHARED use, then we will 
check to make sure that the SHR struture exists. If it does then 
the share structure must be active, by definition. 


TSTL {OPSL 20_SHRCRS) ; Was the SHR structure present 


:; Br if Yes already started 
BBS #UCBSV_ XQ et - ; Br if SHARED UCB, ingore status 
UCB$W_BEVSTS(R §,125$ : ..make user a shared user 
ASSUME UCBSV_XQ_ INITED 58 0 
BLBS UCBSW_DEVSTS(R5),70$ ; Br if already started 
c 


--check multicast address List 
BBC #UCBSV_XQ_PROTYP,- Br if no protocol specified 
UCBSW_BEVSTS(R5) ,100$ .-error 
if protocol type is to be shared 


CMPB #NMASC_ACC_EXC,- 3; Is this PROTOCOL TYPE for exclusive 
YEGSB_NO_ACC (RS) ; _use? 
BNEQ 125$ ; Br if not 


protocol type for uniqueness 
MOVZWL UCBSW_XQ_PROTYP(RS),.R1 ; Get protocol type 
user wishing to run in promiscuous mode, the requirement is that 


be no other promiscuous users running, or a non-promiscuous user, 
e 


must be no other users running with same protocol type. 


MOVAB MATCH_PROTYP,RO ; Get address of Action routine 
3 assume non-PROMISCUOUS user 


ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC"STATE-OFF EQ 1 


BLBS UCBSB_XQ_PRM(R5) ,90$ ; Br if NOT a PROMISCUOUS user 


The promiscuous user must have PHY_10 privilege 
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DE 1/0 OPERATION FDOT 


<= 
ze 
o*7 


16-SEP-1984 
355-198 


MATCH PROATYP RO 
HY_10,90$ 


can 
~" 
wv 
<cz> 
—w 
< 
wv 


E Tl 
#SS$_NOPRIV,RO 
#NMASC_PCLI_PRM,RI 


R4 
UCBSL_CRB(RS) ,R4 
MOVL CRBSL-AUXSTRUC(R4) ,R4 


RG 
RO,130$ 
Bad protocol type 


00$: MOVZWL #NMASC_PCLI_PTY,R1 
BRB 120$ 
Bad quota calculated 
10$: MOVZWL #NMASC_PCLI_BFN,R1 
tt MOVZBL S“#SS$-BADPARAM,RO 
3$: BSBW RES_MUCTI 


00 


AX/VMS Macro v04-00 
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Get address of Action routine 
If user has privilege, then ok 
Else, Restore origina 
Return error = NOPRIV 
Return the bad parameter 
Finish the 1/0 request 
Save PCB, UCB addresses 
Get CRB address 

Get COB address 
Try to find exact match 
Restore PCB, UCB addresses 
Br if none found - okay 


Return bad parameter code 
Finish error reporting 


Return bad parameter code 

Set error return 

Restore original multicast List 
Finish the I/0 request 


: Shared protocol type - look for same protocol type in other UCB. 


i 


25$: BSBW 


BLBC 


SHR_UCB 
RO,123$ 


Find other UCB in user or make this 
UCB shareable 
Br on error 


; We must now check if UCB is already inited. 


1 


1 


ASSUME UCBSV_XQ_INITED EQ 
BLBC UCBSW-DEVSTS(R5),135$ 


BRW 185$ 
30$:  SETIPL #IPLS_ASTDEL 
Take quota needed 
BSBW = TAKE_QUOTA 
BLBC RO, T0$ 
MOVW R7,UCB$W_XQ QUOTA(RS) 
35$:  SETBIT #ucesv xa IRITED. = 
UCB$W_BEVSTS(R5) 
SETIPL UCBSB~FIPL(RS) 
BLBS CB$B-XQ_PRM(RS),140$ 
MOVL BSL~CRB(RS) -R4 
MOVL  CRBSL~AUXSTRUC(R4) RG 
MOVL  R5,CDB_L_PRMUSER(R4) 


Pre-allocate all needed receive buffers, if the CDB is not initialized 
The buffers are immediately deallocated, 


0 


. 
e 
e 
. 
a 
a 
° 
o 
2 
a 
© 
° 
CJ 
. 
a 


Br if this UCB is NOT inited 
skip quota Legion ( already done 
Else, compute multicast List 


Reset IPL to ASTDEL 
Take 
8r 


if 
Save quota i 


quota from user 
error 


n UCB 
; Indicate unit is initialized 
: Syne access to UCB and CDB 
Br if NOT a 


PROMISCUOUS user 


; Get CRB address 


Get COB address 

Store promiscuous user's address 
et! 
but this pre-allocation will allow 


the pool to grow if necessary! This must be done here, before we run on the 


ay 
multicast List 


ped 
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96F 2775 ; interrupt stack. | 
oF 8776 | | 
96F 2777 1408: PUSHO R3 ; Save R3, R4 | 
2} OD 73 HS 9 $ ore MOVZWL UCBS$W_xQ_8SZ7(R5),R1 : Get size of receive over 
4 0D € 097 77 MOVZWL UCBSW_XQ_HBQ(R5) ,R4 ; Get device buffer quo 
4 1 ¢6 097C 2780 DIVL R1,R ; Compute number of PAises to allocate 
4 06 O97F 2781 INCL RG 3; Plus one extra 
E 046 0O9 7 ¢ CLRL -(SP) : End of List marker | 
00000000 * GF 8 9 7835 145$: JSB G*EXESALONONPAGED : at lecete | Lin memory 
0— 50 =«€€ 9 784 BLBC 0,1 ; Br one 
08 A 1 + 9 785 MOVW R1,IRPS$W_SIZE(R2) ; Save size. of buffer 
OA A ig 0 0996 27 6 MOVB aDiNS YNSC CRB, IRPSB_ TYPE (R25 - Set structure type 
7E 5 D9 994 27 OVL  R2,- ay : Save buffer address 
eE9 54—CédéFF 14 44 3 SOBGTR R4.14 3; Loop if more to allocate 
50 +4 09 99A 2790 150$ MOVL (sP2+R ; Get buffer address 
0 1 99D 2791 BEQL 155$ : Br if end of List 
00000000'GF 16 O99F re JSB G*EXESDEANONPAGED 3 Seoliecate. the block 
F3 11 O9AS 279 BRB 150$ ; Try for more 
aa Pee 155$ POPQ R3 : Restore R3, R4 
1004 30 O9AA 2796 BSBW 14 Cit te 3; Compile a new multicast address List 
33 50 =O«EB Ha ade BLBS ; Br if all okay 
a08 799 ASSUME NMASC_STATE_ON EQ 0 
444 4 ASSUME NMASC~ “STATE. OFF EQ 1 
04 OODA CS’ E8 344 Boe BLBS UCBSB_XQ_PRM(R5),160$ ; Br if NOT a PROMISCUOUS use 
0214 C4 D4 098 0 CLRL COB_L “PRAUSER(R4S 3; Else, clear the PROMISCUOUS. user addr 
0989 2804 160$:  CLRBIT #uCcB$0_xa mite 7 3: Indicate unit is not initialized 
0989 2805 yen BevSTS(r5) : 
20 A6 «6557)~—CsCiCOs«éOO98B 806 ADDL R7, JIBSL_BYTCNT (R6) : Restore quota 
24 A657 0 Q9C 807 ADDL a spies “BYTLM(R6) 3 ..and byte Limit 
51 OBOF 8F C O9C 808 170$: MOVZWL C_PCLI_MCA,R1 3 indicate bad a FE address 
FF62 1 pore 509 BRW 1308" ; Return in error 
Beck i} 3; Change mode request - might have to reset multicast address List 
boc 13 180$: ASSUME UCBSV_XQ_INITED EQ 0 
03 68 AS 4 Bae aie BLBS UCBSW_ “DEVSTS(RS),185$ ; Br if unit inited 
FEO7 1 844 312 BRW 10$ 3; Else, success 
0905 HFA 185$: SETIPL ucese 4 ene 3; Sync access to UCB and CDB 
1005 630 0909 \8 BSBW ADD_MULTI : cong ite oe multicast address List 
€7 50 34 90C 81 BLBC R 3 Or 
21 a3 06 ODF 820 MOVB #x6 aS _V_CHMODE , IRP$B_XQ *FUNC(R3) ; “Got function request 
0200 31 O9E€3 2821 190$: BRW J Queue packet to driver 
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3% 
; Take quota subroutine 
Calculate buffer quota and check against user's quota 


; Inputs: R7 = Scratch 
; Re = Scratch 
R5 = UCB address 
R4 = PCB address 
; Outputs: R7 = Quota taken 
: Ro = JIB address 
R5 = UCB address 
R4 = PCB address 
= Status 


R1,R2 are destroyed. 
; Implicit outputs: 
BR to ABORTIO if quota is exceeded. 


AKE QUOTA: 
CLR Assume failure 


$2(R5) ; Round buffer size to even value 
#1 ,UCBSW_xa BSZ{R5) ; ape 
MOVZBL UCBS$B_XQ~BFA(RS) ,R1 3 Get number of receive buffers 
MOVZ2WL UCBS$W-DEVBUFSIZ(R5),R2 ; Get buffer size 
MULL R2,R1 ; Get needed quota 
MOVZWL R1,R7 ; Copy quota 
CMPL R1,R7 : Overflow? 
BNEQ 116$ ; Br if yes - error 
MOVL ah be STS(R4) ,-(SP) ; Save current PCB status 
SETBIT #Pces? SSRWAIT,- ; Do not go into a resource wait 
pgSSL_STSCRA) : _ just_to check the quota 

PUSHL R : Save R3 
JSB G*EXESBUF QUOPRC 3; Check quote 
POPL R3 : Restore R 
MOVL (SP)+,PCBSL_STS(R4) ; Restore previous PCB status 
BLBS RO, 50$ ; Br if success 
BRB 80$ ; Else, return error 

50$ MOVL pcos, ZiOCns) 206 ; Get JIB address 
SUBL R7,J16 L_BYTCNT(R6) 3; Adjust quota 
SUBL Bi of LOSE BYTLACRO) 3; ..and byte Limit 
MOVZBL #1,R 3; Indicate success 

$s CLAL R1 ; No error return 

$: RSB 

110$: MOVZBL #SS$_BADPARAM,RO :; Setup error code 
MOVZWL #NMASC_PCLI_BFN,R1 ; Assume BAD BFN 
BRB 90$ ; Return error 


3@ 
3; CHECK_QUOTA = check SHARED unit's quota 


er 16-SEP-1984 00:37:44 VAX/VMS Macro Vv04-00 Pa 
MODE 1/0 OPERATION FDT eats Pi 3 iée LORIVER. SREIRODRIVER.MAR; 1 ™ (8) 


AX/VMS QNA driver 16-SEP-1984 37:44 VAX/VMS Macro Vv04-00 Page 
MODE _FDT = SET MODE 1/0 OPERATION FDOT eet PELE? DRIVER. SRCIXQDRIVER.MAR; 1 ° ($3) 
ASF 9 : 
ASF 3 Inputs: = gerayeh 
ASF § ; = Original UCB address 
ASF 3 = UCB address 
ASF 4; = PCB address 
ASF 28 
ASF § 8 
ASF 3; Outputs: R9 = Quota taken 
ASF &: R? = Original UCB address 
ASF 9; R5 = UCB address 
ASF 90 ; R4 = PCB address 
pA : $3 : RO = Status 
BA F 93 ; R1,R2 are destroyed. 
ASF 94; 
A3F 95 ;- 
ASF 36 CHECK_QUOTA: 
OA3F 9 PUSHQ R6 3; Save R6, R7 
55 DD OA42 898 PUSHL 5 : Save UCB address 
55 57 DO OA4&4 99 OVL R7,R5 ; Copy original UCB address 
9D 10 QA4&7 2900 BSBB TAKE_QUOTA ; Charge quota to user 
22 BEDO OA49 2901 POPL R5 ; Restore UCB address 
16 50 €9 OA4C 4 BLBC RO,90$ :; Br if error 
, 0 OASF 290 MOVL R7,R9 ; Copy quota taken 
51 0188 CS 3C OAS2 2904 MOVZWL UCBS$W_XQ_TOTQUO(RS),R1 : Get total quota 
51 9 go AS 905 DOL R9,R1 ; Compute new total 
50 1 C OASA 238 MOVZWL R1,RO ; Copy quota 
50 1 Di OASD 290 MPL R1,R0 : Overflow? 
07 12 OA60 2908 NEQ 1108 : Br if yes, error 
50 01 QA OA6 909 MOVZBL #1,R0 ; Else, return success 
Ab 910 90$: POPQ R6 3; Retore R6, R 
05 net) at) RSB ; Return to caller 
20 A659 ce OAs 318 110$: ADDL R9, JIBSL_BYTCNT(R6) ; Restore quota 
24 A6 «O59 ¢ A6D 2914 ADDL R9, JIBSL_BYTLM(R6) 3; ..and byte Limit 
50 1¢ 3C OA71 2915 MOVZWL #SS$_EXQO0TA,RO : Return bad quota 
51 D4 OA74 2916 CLRL R1 ; No parameter return 
ED 11 oar aif BRB 90$ 3; Exit with error 


D1 | 
- QNA dri 16-SEP-19 7:44 VAX/VM cro V04-00 Page 64 
vourOuo” SHRUB = CREATE SHARED UCB ~SEp= 1984 00:30:84 LORIVER. See KaD DRIVER.MAR; 1 (Sa), 
AB 2920 .SBTTL SHR_UCB = CREATE SHARED UCB | 
NA ? : 2 SHR _UCB = CREATE SHARED UCB 
Ag : f : Functional description: 
A7 926 ; This subroutine creates a shared UCB if this is the first SHARED user of the 
: . Else, the already created SHARED UCB is found and 
A 3 : ee lered bate ateeatale ta added to the List of shared users of that protocol 
ApB 5980 5 TYPE: | 
v4 | 1 : Inputs: | 
A? 9 : : R3 = IRP address 
A7 934 ; R4 = PCB address 
A? 935 ; R5 = UCB address 
Ay8 5089 | Ts function sede 
: = Func 
par g 3 ; AP = Address of first function-dependent Q10 parameter 
NA 940 ; IPL = FIPL 
OArB 2948 : Outputs: | 
: = t for request 
Ne ye: : Rt = Red Gasceetar code (it bad parameter error code) 
OA7 44 : R 2,R7 are destroyed. 
gar at 3 LC other registers are preserved. 
OA78 2949 : IPL = ASTDEL | 
QA78 2950 ; 
Sh 33) i | 
Ay 33 SHR_UCB:: 3 pote eoeree 8 protocol UCB 
= " : ere er 
o000gane er * Age 336 rf ie G-Scws{0L Ocky 3 Lock ie data. sane for write access 
3 Sav 
50 34 C4 ; Re Abe 335 MOV TUL #e8% PUNIT,R ; Assume 2 channels assigned to UCB 
5C AS a 61 ABA 958 CMPW 4 surBsu UREEE CRS) ; Is there only one reference to UCB? 
12 OA 959 BNEQ . acccns), as ; Tot’ mest Oreee (more than 1 channel) | 
— §3 2 A 309 apse Gist ao, ARE : Br if we are already the SHARED UCB 
2C 68 A5 AI? 296 —_UCBSUT bev stn), 108; 
54 DD OQA9A 29 g PUSHL R4 ; Save PCB address 
54 AS DO OA9 363 MOVL UCBSL_CRB(R5S) .R ; Get CRB address | 
oy) 10 Aa Dd ARO 965 MOVL CRBSL “RUXSTRUC CRS) R4 ; Get CDB ea 
51°" o0ca.¢3 AAS 296 MOVY  UCBSW-xa PROTYP(RSS .RI ; Get protocol ty | 
221A 0 AAY 363 BSBW MATCH_PROTYP 3; Try to match protocol type 
& BEDO OAAC 596 POPL RG : Restore PCB address | 
E AAF 29 BLBS RQ. 1 $ : Br if foun 
55." DO QAB2 29 VL =-R?,R ; Else, A +h back old UCB address 
CAS D4 OAB oy CLRL —sUCBSL_PID 10¢R5) ; Make this UCB shareable | 
50 it a3 DO QABB 297 MOV yee ot (R5) ,RO ; Get the ORB address | 
60 D4 OABC 378 CLRL $L OWNER (RO) e : cf tear owner UIC a as well | 
~_ § +} ace ore a UcesL= xa, SHARE ,- : indicate that UCB is in SHARED mode 
68 AS ACS 2976 UCBSW “Heyete tas) ; 
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Check out all parameters 

Br on error 

Check our quota 

Br if error 

Get size of structure to allocate 
Save IRP addr 


| 

XQDRIVER = VAX/VMS QNA driver 1 mi 4 AX/VMS Macro V04-00 Page 65 | 

vou~000 SHR_UCB = CREATE SHARED UCB =198¢ 00:20:56 LDRIVER. SRESS KODRIVER.MAR;1 Say 
AC6 3 

Ae : Allocate a share data structure and Link it in | 

58 91 QAC 10s: CMPB #NMASC_ACC_LIM,R8 Is the new user a Limited user? | 

13° OAC BEQL Br if yes = okay 

50 84 st AC MOVZWL #SS$_DEVALLOC,RO Assume protocol ‘already allocated 

0c DS OAD TSTL yes $C_XQ_DEFUSR(RS) Is there already a default user? | 

x5 AD4 BNEQ YES - error 

4 | 


i RO,25 
MOVZBL #SHR_C_LENGTH,R1 
PUSHL R 
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Sete Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Fe Ge Ge 


USH ess 
00000000' 16 OAE JSB G*EXESALLOCBUF Allocate buffer, reset IPL to ASTDEL 
saa 1 E POPL R3 Restore IRP address 
1A 5 F LBS RO, 30$ Br if success 
50 0124 C F MOVZWL #S$$_INSFMEM,RO Else, return error reason 
51 0080 D OVL PCBSC_JIB(R45,R1 Get JIB address 
20 Al C 99 ADDL RO, JIBSL_BYTCNT(R1) Restore quota 
24 Al C 99 ADDL R9, JIBSL_BYTLM(R1) and byte Limit 
D4 998 ges: CLRL R1 No bad parameter code 
55 0 999 25$: MOVL R7,R5 Get back the OLD UCB address 
00 1 BRW 80$ 


: Initialize shared (SHR) data structure 


$0$: ASSUME SHR_L_QFL EQ 0 
ASSUME SHR7L OBL EQ SHR_L_OFL+4 


CLRQ ss (R 
ASSUME SHR Mv SIZE EQ SHR_L 0B..+i 
MOVW R2)+ ; Save size 

ASSUME SHR_B_TYPE EQ SHR_W_SIZE#2 

INCL R - Filled by EXESALLOCBUF routine 
ASSUME SHR_B_STS EQ SHR_B_TY 


YPE+ 
Ove #SHR_STS_M_INITED,(R2)+ ; Initialize SHR status 
ASSUME SHR_C_PIBD EQ SHR_B STS+1 

IRPSL-PID(R3) , (RZ)? 


| 

| 

| 

| 

| 

Exit with error | 
Zero LINK pointers 
| 


Save users PID and CHAN for 
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ASSUME SHR_W-CHAN EQ SHR_L Piped 
82 28a3 B80 “CHAN(R3) , (R2)F ;. for future lookups 
ASSUME G"DEST EQ SHR W_CH Nt 
Be oocc Cc? OD OVL  UCBSG_xQ_DES(R7) Ma SER Save destination address 
2 0000 ¢7 B OVW UCBSG_XQ-DES+4(R7) , ( | 
ASSUME SHR Q-QUEUES EQ shh vy desies 
51 0 9A MOVZBL #SHR_C_QUEUES,R1 ; Get number of queues in structure 
82 6 D 40$: MOVAL (R2)7,(R2)+ 3; Set forward Link pointer 
82 FCA D MOVL -4(R2), (R2)+ ; + bockuard Link pointer 
F6 51—SO*F SOBGTR yo; more Listheads 
ASSUME sui W_QUOTA EQ SHR_Q _auevess< *SHR_C_QUEUES> 
82 59 B60 MOVW 9,TR2)+ : Initialize quota 
ASSUME UCB$V_xOQ Ami Tee EQ 
BAS €9 LBC RS.ut ie a »,50 ; Br if UCB not initialized 
goes” tS 23 Ap ADDW R9,UCB$W_xQ QUOTA(RS) ;: Add to the current quota 
188 C 9 A ADDW UCBSW"XQ-TOTQUO(RS) ; and the total quota 
A 11 BRB ; Continue 
ooc8 cS 59s BO 508 MOVW R9,UCBSW_XQ_QUOTA(RS) ; Set current quota 


F1 
ARED UCB SrSEp=198¢ 00:20:54 DRIVER. sReNODRIVER.mar:1 "29° (86, 


XQDRIVER = VAX/VMS QNA drive 
a SHR_UCB = CREATE SH 
0188 9 8B 4 4 MOVW R9,UCBSW_XQ_TOTQUO(RS) ; and total quot 
A § B 5 55$ SUBL #SHR_C_LENGTH,R2 3 Backup to be fnnin of structure 
; ; B $ : CHPE ais Ace _LIA,R8 ; Is this 5 for imited use? 
; Br 
00c4 C5 i) MOVL UCBSL_XQ_DEFUSR(RS) ; Ei ge. dave default user address 
11 0B6 BRB es Skip Ui nking onto List 
009¢ DS. 62 OF 0B6 4 60$ INSQUE ) ,QUCB$Q_XQ_SHARE+4(R Rb) ink user into shared user List 
SC A B6 344 r 65$ INC veesae REFC(RS)~ ; Increment the ret count on the 
57 55 1 B6A rk CMPL R5,R7 ; Was this the original ge 
2 1 6D 44 BEQL 70$ ; Br if YES - no more work to do 
SC A 8 BgF 45 INCW UCBSW_REFC(RS) ; Else, increment REFC Cfor. SDASSGN) 
1C A3 é D $ MOVL RS, 1RP$L_UCB(R3) ; Return new UCB address 
66 ao 7 4 OVL R 4 i UCB(R6) 3 n also 
¢3 7 beS PUSHR #*M<R »R5> ; Save IRP, real a aderese 
55 D B78 49 R7,R5 : Copy old UCB addre 
5c AS) 6B 7E 3050 DECW UCBSW_REFC(RS) ; Decrement the reference count 
QOO000000'GF 16 0881 3051 JSB G*IOCSCREDIT_UCB ; Restore UCB quota to JIB 
00000000 ' GF 16 7 O36 JSB SaAcet ETE_UCB ; Delete the old UCB 
8 Bf B8D 305 POPR “M<R3,R5> 3; Restore IRP, UcB address 
30 A OBBF 3054 70$: MOVZBL AES NORMAL ,RO ; Return succes 
0300 BA 92 3055 80S: POPR <RBIRI> ; Restore registers, R4 is PCB address 
B 68 38 p29 PUSHR on meno R1,R3> ; Save IRP address, status return 
00000000'GF 16 0898 305 JSB Ga SCHSTOUNLOCK : Unlock 1/0 data base 
0B #BA 4) 058 POPR M<RO,RI,R ; Restore IRP address, status return 
05 OBA 059 RSB ; Return to caller 
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KQDRIVER = VAX/VMS QNA driver 16-SEP-1984 00:37:44 VAX/VMS Macro Vv04-00 Pa 7 
Yen O00 CHECK_PARAM = Sete SHARED USERS PARAMET g- E18 4 EEE? DRIVER. SRCIXQDRIVER.MAR; 1 ” (5) 
a4) 6] ; ~SBTTL CHECK_PARAM = CHECK SHARED USERS PARAMETERS 
BAI es : CHECK PARAM = CHECK SHARED USERS PARAMETERS 
BAI $9 : Functional description: 
BAI 89 : Validate all parameters between the requesting SHARED user and the old 
BA rt: ; existing SHARED user to make sure that are the same. 
QBA1 % : Inputs: 
Al 71 3 Re = UCB address of existing shared user 
BA1 os 3 R7? = UCB address of new shared user 
oat t ; R8& = Protocol access mode 
BA1 75 : Outputs: 
BAI 6 3 RO = Status of request 
BA! 77 ; R1 = Bad parameter code if validation failed 
BA1 3078 ; 
BA ie 
OBA1 3081 CHECK_PARAM: ; Check user parameters 
56 DD OBA 350 § PUSHL R6 ; Save registers 
50 0006 C5 9E OBA 0 MOVAB UCBSB_XQ_SHRPRM(R5),RO ; Get address of current parameters 
56 0006 C7 9E OBA 084 MOVAB UCBSB_XQ_ SHRPRM(R7),R6 ; Get address of new parameters 
52 08 QA 4 # MOVZBL #UCBS$C_xG_SHRPRM,R2 ; Set size of parameter List 
at O87 : Validate all user settable parameters except for Physical address 
66 $0 1 oee3 089 10s: cpp (RO), (R6) : Match? 
; Br no 
86 = 80 8 088 091 MOVB (RO) +, (R6)+ 3; Store current value in UCB 
F552 5 OBBB a8 SOBGTR R2,10$ : Loop if more to check 
OBBe bee : NOW, check if user has given a hardware physical address. 
Spe 096 ; RO = Address of parameters in UCB 
joes +44 3 R6 = Address of parameters in CDB 
0BBB 3099 ° ASSUME CDB_G_PHA EQ CDB_B _CON+1 
pees 139 ASSUME UCBSG-xQ_PHA EQ OCB$B_x0_CON+1 
66) FFF FFFFF or 0} 8 } 1 cnr #-1, (R6) : js yser physical address defined? 
; ; Br es 
04 AG sOFFFF / of +3} ! § ys #-1,4(R6) 3 i. user prysteat address defined? 
: ; ow no 
51 0604 8F ii BCC §=3105 208 MOVZWL #NMASC_PCLI_PHA,R1 3; Assume bad physical address 
86 8 D1 0B8D1 31 $ CMPL (RO)+, TR6)+ 3 Physical address match?? 
1 12 O0BD4 31 BNEQ ; Br no 
86 4 ? 4 1 3 CMPW (RO)+,(R6)+ 3 Still match?? 
2 +44 ! BNEQ 80$ ; Br if no 
BB in} ; If this is the shared default user, then set the multicast address List. 
009¢ 30 BDB 118 $0s: BSBW 4 MULTIN ; Set new multicast address List 
9 1 +3 VW BRB os 3: Exit 
aE 118 : Error on parameter validation 


CHECK-PARAM = CHECK. SHARED USERS PARAET 'S-SEP-19B4 00:20:56 EDAIVER.cReoKaDRiven.man:1 29° ($8, 


51 f : MOVZWL BAD_PARAM foe acne. RI ' ees arameter code 
: Beye BL Pde _BADPARA urn bad parameter error 
RSB 
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7:44 ed Macro V04-00 
YORIVER. SRCIXQDRIVER.MAR; 1 


i .SBTTL SET_MULTIN = SET NEW MULTICAST ADDRESS LIST IN UCB 
> SET_MULTIN = SET NEW MULTICAST ADDRESS LIST IN UCB 
: Functional description: 


; Copy the multicast address List from the old UCB to the new UCB. 
; This operation is only done for the SHARED DEFAULT user of the PROTOCOL. 


B address of existing shared user 
B address of new shared user 


otocol access mode 


= Always success 
other are preserved. 


#NMASC_ACC_SHR,RB 


#oM<RI “Ry RS, R4,R5> 
#GsAK Ucés¢. x 
UCBSG_& bey (R5)~ 
#*mcrT, any R4,R5> 
UCB$B_xQ “MUL tke 

UCB$B~XQ~MULTI(RS) 
ria NORMAL ,RO 


a_multi(R?), 


; Set new multicast List 
; Is this Bae shared default user? 


: Br ifn 
Sav g regis ters 


: Restore registers 


3; Copy the number of valid addresses 


+ Return success 
3; Return to caller 


3 fepy multicast list 
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SENSEMODE =FDT = SENSEMODE 1/0 FOT PROCES 
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SEP=1 DRIVER. SRCIJXQORIVER.MAR; 1 
~SBTTL SENSEMODE_FDT = SENSEMODE 1/0 FDT PROCESSING 

SENSEMODE FDOT = SENSEMODE 1/0 FDT PROCESSING 

Functional description: 

Process read status and read counters requests. 

The Q10 parameters for SENSEMODE are: 


P1 = Optional address of quadword buffer 
P2 = Optional address of buffer descriptor for extended characteristics 


The SUBFUNCTION modifiers are as follows: 


1) + r4 PARAMETERS == NO MODIFIER. 
This function reads the QNA parameters and returns them to the user. 


EAD COUNTERS == IOSM_RD_COUNT SET. 
is function reads the GNA counters and returns them to the user. 


2) R 

Th 

SLGAR COUNTERS -- IOSM_CLR_COUNT SET. 
th 


s modifier must be Used with the read counters modifier to clear 
e counters as they are read. 


Inputs: 
R3 = IRP address 
R4 = PCB address 
R5 = UCB address 
R6 = CCB address 
R7 = Function code 
AP = Address of first function-dependent Q10 parameter 


IPL = ASTDEL 

Outputs: 
RO = Status return of SENSEMODE request 
R1,R2,R6,R7 are destroyed. 


wn Se Se Ge Se Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Gs Se Se Se Se Fe Se Se Se Se Sete Se 
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ENSEMODE FDT: SENSE MODE 1/0 POT Grocessing 


MOVZUL. #SS$_DEVOFFLINE,RO 3; Assume unit if o 

BBC #UCBSV_ONLINE,- ; Br if unit not online 
UCBSW_ Hi TS(R5),15$ 3 

MOVW TRPSUTF UNC (RSS R7 ; Get entire function code 

BBS #10$V~ CYRE R7,10$ : Br if Line request 


> Check if read circuit counters 


BBC #10$V RD. COUNT. R7,5$ ; Br if not read circuit counters 
BRW READ on ; Else, get the circuit counters 
5$: MOVZBL S*#sSS NORMAL, RO ; Return success 
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iver oi 

SENSEMODE 1/0 FDOT PROCES 5-SEP- 
MOVL UCBSL_DEVDEPEN 
JMP G*EXESFINISHIO 

108: BBC 

, BRW READ_LINE_CTR 

158: BRW ABORTIO 

Read parameters - no modifier 


50s: CLRW IRP$W_XQ 0 P2s1Z(R3) 


MOVL  UCBSLC 

MOVL  CRBSL “sree Thue ths) . RG 
MOVZWL S*# 

BSBW CHECK BUFS 

MOVZBL S$*#S aSSS NORMAL.R 

MOVW RO, IRPSW_xaQ AE ER tus 
MOVW OR IRPSW- XQ"USERSI 
BEQaL 40$ 

MOVL 2 RPSL, XQ_P2BUF (R3) 
BSBW RETURN 

MOVW R6 WRPsue XQ_P2S12(R3) 
TSTL RG 

BEQL 308 

ADDL3 $*#10,R0,R1 


CMPW sR}, IRPS$W_XQ_USERSIZ(R3) 
25$ 

ADDW HO IRP$W_XQ_P2S] 

0, iRPSL_RQ *poauF 


MOVL #<6816>+NMASC_PCL 
PRA_TYP_M STRING, ( 


MOVL COBt “G_HOATR4 
MOVW DB-G_ “uasecras® 


BRB 
$33: MOVW 
0$:  MOVZWL IRPS ps0 XQ_P2S12¢ 
ASHL  #16,R0,R 
MOV HGERO RO users, 
408 TSTL = RG 
BEQL §=-_- 508 
MOVL 1RPSL_ XQ_USERBUF (R3) ,R2 
BEQL 0$ 
mova ©-—« UBB -PEVCLASS (RS) (R2), 
BISL  CDB_L-DEVDEPEND 
MOVL  CDB~ E-DEVDEPEND (RG 
50$ BISL  UCBSL~DEVDEPEND(RS 
JMP G*EXESF INISHIO 


#10$V_RD_COUNT,R7,20$ 
Read counters = modifier RD_COUNT 


1986 00:2 


D(R5),R1 


7:44 mies Macro V04-00 
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; Get device dependent information 


6 
° 
° 


Complete the I/0 request 
Br if not read counters 


Get the Line counters 
Abort the 1/0 request 


No return data 

Get CRB address 

Get CDB address 

Size of Pl buffer if present 
Check P1 and P2 buffers 
Assume success 


Save user P2 buffer Length 
Br if no P2 buffer present 


; Save user P2 buffer address 
; Return the P2 parameters 
; Set size of en data 


Is COB present? 
Br if no - faul to return now 
Check if ooiey ; physical 
address can 
s bu Her big enough for 
default shya teal address? 


Add DPA to return buffer size 
; Get buffer address 
ast end of return data 
tore parameter code + size 
and indicate this is a string 


$ S Store Default Physical Address 


ALL i 
#SS$_BUFFEROVF gpsu, xQ_ SrAtUs tis) 2 "neturn partial success 


et size of user return data 


; Shift size of buffer return 


Sete ee _. Sete 


Get status 


Is there a ‘ce 
Br if n 


o COB y 
: Retrieve. 4, bytier address 


Br if n 
Else, rocure characteristics 


Get device dependent info 
.-from UCB a 
Complete the io request 


L 11 


71986 80:20:34 


acket to win 


; Intiate the 1/0 canel 
; Lower IPL, and RE 


MOORIVER ~ yy QNA driver Tenser 
v04 SENSEMODE_FDT = SENSEMODE 1/0 FDOT PROCES 5- 
cf § : Queue 1/0 request to driver 
CC 71 QuEPKT: 
cc 7 SETIPL UCBSB_FIPL(RS) 
00000000 ° GF 16 cc 7 JSB G*1OCSINITIATE 
00000000'°GF 1 ccd 74 JMP G*EXESQIORETUR 


<x 
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XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 00:37:44 VAX/VMS Macro v04-00 Page 
YOen OO READ_LINE_CTR = READ THE LINE COUNTERS aot PEELE YORIVER. SREINODRIVER.MAR: 1 . 
cD 76 «SBTTL READ_LINE_CTR = READ THE LINE COUNTERS 
¢. f -SBTTL READ_CIRC_CTR = READ THE CIRCUIT COUNTERS 
CD 8 : READ_LINE_CTR = READ THE LINE COUNTERS 
$3 ? ; READ_CIRC_CTR = READ THE CIRCUIT COUNTERS 
cD j : Functional description: 
cD 4 : Process read circuit counters request. 
cD : : The Q10 parameters for SENSEMODE are: 
CD 3 : P2 = Address of buffer descriptor for counters 
EDS 3590 | 
$° 4! : Inputs: 
cD 3 : R3 = IRP address 
OCD 94; R4 = PCB address 
OCD 95; RS = UCB address 
OCD 96 ; R6 = CCB address 
OCD 97 ;: R? = Function code and modifier bits 
Eee 4 : AP = Address of first function-dependent Q10 parameter 
ae Bo : Outputs: 
Ocp 398 : RO = Status return of SENSEMODE request 
OCD 04 ; R1,R2,R6,R7 are destroyed. 
ome 
OCD 307 ' .ENABL LSB 
OCD 08 ABORT_IRP: 
0700 8F " CD 09 POPR #°M<R8B,RO,R10> 3; Restore registers 
F66C 331 cD? 10 BRW ABORTIO : Abort the 170 request 
CDA \ READ_LINE CTR: ; Read the Line counters 
0700 8F 8B OCDA 1 POSHR #*M<R8,R9,R10> 3 Save registers 
58 F427 CF 9E 4) 14 MOVAB N : Get address of counter format table 
59. 14 3¢ CE 15 MOVZWL #LINE_CTR_SIZE,R9 : Get number of entries in table 
56 006A 8F 3C OCES 16 MOVZWL #LINE-CTR Bur siz R6 : Get size of system P2 buffer 
24 AS b0 cee 331 VL UCBSL~CRBTRS) R10 : Get CRB address 
50 0126 8F C OCEF 18 MOVZ2WL #SS$_INSFMEM,RO 3 Assume no CDB 
10 AA 09 CF4 1 VL CRBSC_AUXSTRUC (R10) ,R10 3; Get CDB address 
D9 = cF8 0 BEQL ABORT_IRP ; Br if none, abort the 1/0 
12. «11 CFA 1 BRB : Else, Continue in common code 
CFC § READ_CIRC_CTR: ; Read the circuit counters 
0790 8F CF 4 POSHR #*M<RB,R9,R10> : Save registers 
58 £455 CF E OD 6 5 MOVA 8 : Get address of counter format table 
C OD 6 MOVZWL #CIRT_CTR_SIZE,R9 : Get number of entries in table 
C 0008 MOVZWL ac IRC CTR7BUFSIZ,R6 : Get size of system Pe buffer 
A 5 00 O0¢ 3 VL R5,R10 : Use UCB for counters 
0086 0 OD ? 10$: BSB CHECK_P2 3: Check the P2 buffer 
9 4 A OD! MOVZBL $*#SS$_BADPARAM,RO ; Assume zero length buffer 
38 AS) «51S BOO 14 2 MOVW  R1,IRPSW_XQ_USERSIZ(R3) ; Save size of user P2 buffer 


am 1 


o 


Ww 


51 
50 


owe wo wn 
@orrorrourcsoe 
Dimoiei> win O— > —_ 


: 


50.51 
44 AS 


51 
3444 8F 
00000000 * GF 


READ THE CIRCUIT COUNTER 'S-sEP-19B6 $o;30 


AANA AINI AAAI AAAI IAAI AAAI AND 
DDD DEPP Be Be BS BS BEE EAI 


MEW 9 OONAU EWN 0 OD NIA MEW OOOO WW 


35s: movi (R1)+ 


ios: MOVW 


SN NNNNOOO 
WIND L— "SS P~V 


o 


2 Sovaoce 
SSSEER 
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; Br if no buffer 


BEQL ABORT_IRP 

MOVL R6,R1 ; Get size of oyetes P2 buffer 
BSBW ALLOC_P2BUF ; Allocate the buffer 

BLBC ; Br if error 


; Get system P2 buffer address 
; Save user P2 buffer address 
; Get address of data portion of buffer 


| 
| 
R | 

MOVL RPSL SVAPTE (R3) 
MOVL Re P26 _L_BUFFER(R 
P2B_L_POINTER(R1) ,R2 | 
; Get the counters kept by the driver 
| 


> 
@o 
a 
z@ 
— 
— 
= 
wv 
Sete Ge Ge Ge Se & 


R1 
1) 
oR 


20S: MOVZWL (R8)+,RO 3; Get counter code 
VW RO, (R2)+ 3; Return counter type code 
MOVZWL (RB)+,R1 : Get offset word 
ADDL R10,R1 3 Point to counter in UCB 
EXTZV #NMASV_CNT_MAP,#3,RO,RO : Get width + bit map indicator 
CASE RO TYPE=B,CIMIf=#2,<-  : Dispatch on width and bit map 
; §,- + 8 bit counter 
0$,- ; 8 bit counter + bit map 
40$,- 3; 16 bit counter 
Ft ta 3 16 bit counter + bit map 
5$> 3; 32 bit counter 


30$: BUG_CHECK NOBUFPCKT,FATAL 


: 32 BIT counter/ 16 BIT counter + bitmap 

2 (R2)+ ; Store counter in buffer 
#10$V_CLR_COUNT,R7,40$ ; Br if not clear counter operation 
CLRW =2(R1) 


: 16 BIT counter 


Else, clear the counter as well 


(R1),(R2)+ 3; Store counter in buffer 
BBC #10$V_CLR_COUNT,R7,50$ ; Br if not clear counter operation 
CLRW (R1) 3; Else, clear the counter as well 
50$: SOBGTR R9,20$ ; Loop if more 
MOVZBL $*#SS$_NORMAL,R1 : Assume success 
CMPW = = IRP$W_RQ_USERSIZ(R3).- : Is user's buffer big enough? 
IRP$W_BCAT(R3) ; 
BGEQU§ 60% ; Br if yes . 
MOVW IRP$SW_XQ_ USERSIZ(R3),- ; Else, set size to minimum 
IRP$W-BCRT(R3) 3; Of both 
MOVW #Sss BUFFEROVE R1 3: Set partial success 
60$:  MOVL  IRPS$Q_BCNT-2(R$),RO : Get size of buffer returned in 
3; .-high word of 
MOVW R1,R0 3; Get status return 
MOVL  UCBSL DEVDEPEND (RS) .R1 : Get device dependent info 
POPR #*M<RB,RO,R10> ; Restore registers 
JMP G*EXESF INISHIO ; Complete the 1/0 request 
-DSABL LSB 
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~-SBTTL GET CHAR BUF = GET P2 CHARACTERISTICS BUFFER 


D9 7 
D9 34 
0? i 3 GET_CHAR_BUF = GET P2 CHARACTERISTICS BUFFER | 
4 4 > Functional description: 
D9 38 : This routine saves the P2 buffer for later use by the driver. | 
D9 94 ; The P2 buffer is saved by a pt tecet ing the eked Beto Yate amount of ap reag Ay from 
D9 95 ; pon=pagee pool. The user's Gyete s epee efore the allocation is pede. 
D9 38 3; And the non=paged pool buffer is charged again mst the user's quota. The P 
D9 97 ; system buffer address is passed in IRPSL_SVAPTE of the IRP. 
D390 3399 | 
93 rth : Inputs: 
0D90 she : R3 = IRP address 
0090 3403 ; R4 = PCB address 
+94 tRe : R5 = UCB address 
BH Gp | omous 
+944 rt : RO = status of buffers 
0090 3410; R3-R5 are preserved. 
0090 3411; 
B38 ig | 
94 t13 GET_CHAR_BUF : ; Get characteristics buffer 
B08 218 : ; Check access to P2 buffer and check process's buffer quota | 
51 04 AC 09 ata 418 ios: MOVL P2(AP),R1 : Get address P2 char buf desc 
33 1 D94 3419 BEQL 408 : Br if no P2 buffer 
5 DD 0096 3420 PUSHL R ; Save R 
occ 18 + : 1 i°2. as mh Sener DSC 3 gnest access to buffer | 
0,1 ; Br error 
51 51 5 ODA 4 ‘ MOVZWL R1,R1 ; Get the length as a word 
52 DD ODAS 3424 PUSHL Re 3; Save R 
00000000 ' GF .. +3 : 5 pe sen XESBUF QUOPRC 5 check rer buffered quota | 
; Restore 
3g Ha DAF 34 3 15$: POPL RS ; Restore R | 
01 50 3 DB 428 BLBS RO, 30$ : Branch if quota ok 
0DB 429 208: $B ; Return 
one 
44 ? gi Quota OKAY, allocate buffer and copy info. 
9050 39 BG 434 $08:  BSBw P2BUF : Allocate. butter 
10 5 E 0B 435 BLBC ; Br if_e 
50 2C A3 DO Opec 34 : VL nD, L_SVAPTE(R3) ,RO : Get P2 butter address 
BB dC 4 PUSHR ei > ; Save gacred registers 
0c AO 62 = «51 DC2 34 MOVC3 R25,POB 1 _DATA(RO) : Save P2 char buffer | 
8 BA DC? 34 POPR PS : Restore registers 
50 01 9A ODC9 344 408: MOVZBL S*#SS “NORMAL, RO : Set success 
05 ODCC 53441 50$: RSB ; Return 
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yen O08 CHECK_BUFS = CHECK P1 AND P2 BUFFERS FOR g- -SEP-1984 t 88: 35; 54 (CORIVER.SRCJXQDRIVER.MAR; 1 ° (30) | 
$44 tet 4s ~SBTTL CHECK_BUFS = CHECK P1 AND P2 BUFFERS FOR WRITE ACCESS 
434 ret - CHECK _BUFS = CHECK P1 AND P2 BUFFERS FOR WRITE ACCESS | 
Bee ci? Functional description: 
+4 4s ; This routines checks the P1 and P2 buffers for write access if supplied. | 
DCD ‘31 : Inputs: | 
DCD 138 ; R1 = Size of Pl buffer needed for write access 
Rote $23 3 R3 = IRP address 
DCD 3455 ; R4 = PCB address 
ODCD 128 ; RS = UCB address 
pore tet 3 R7 = Function code 
BE Hp | ours 
ODCD 3461 ;: RO is destroyed. 
ODCD re ; R1 = Length of P2 buffer (zero if ,no P2 buffer) 
ODCD 34635 ; R2 = Address of P2 buffer in user's process space 
Obed Sees | 
OCD 3466 ; No RETURN on NO ACCESS 
: 
Rote re 3 Implicit Outputs: 
sore rth : IRPSV_FUNC bit set in IRP$W_STS by EXESREADCHK subroutine. | 
gpep aang f- | 
op¢b 474 CHECK_BUFS: 
27. = 10 434 ri euste pe CHECK_P1 ; Check P1 buffer 
51 D4 Ope 139 ~ CLRLE R1 ; Assume no P2 buffer desc | 
5204 AC DQ 0001 $478 HOVE rout ; Get address of Pe desc 
: Br 
pb? 480 IFNORD #8,(R2),ACCESS ; Br if no access | 
51 62 3¢ DDD 3481 MOVZWL (R2),R1 : Get Length of buffer 
OD 1 +3 4 ¢ BEQL 10$ ; Br if zero 
50 04 A2 DO ODE2 34 MOVL  DSCSA_POINTER(R2) ,RO : Get buffer address | 
00000000'GF 16 Ee ? : JSB G*EXESREADCHK : check write access. te buffer 
; (no return no 
DEC 34 § ; Also sets IRPSV. a a in IRP 
52 50 1 DEC 34 MOVL RO,R2 : Copy buffer address 
0 4}! " 3 10$: RSB ; Return to caller 
0 Oc 9A oF 190 ACCESS: MOVZBL S*#SS$_ACCVIO,RO ; Return access violation | 
F550 31 ODF 491 BRW ABORTIO ; Abort the 1/0 request 
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BUFFER ADDRESS FOR W K" SEP=1984 
-SBTTL CHECK_P1 = CHECK P1 BUFFER ADDRESS FOR WRITE ACCESS 
CHECK_P1 = CHECK P1 BUFFER ADDRESS FOR WRITE ACCESS 
Functional description: 


iver 
Pi 0:54 LORIVER. SREIXODRIVER.MAR: 1 


This routine checks the P1 buffer and if okay, the buffer address 
is saved in IRPSL_MEDIA of the IRP. 


Inputs: 
R1 = Size of buffer for write access 
R3 = IRP address 
R4 = PCB address 
RS = UCB address 
R7 = Function code 
Outputs 


RO is destroyed. 
No RETURN on NO ACCESS. 
Implicit Outputs: 


IRPSL_MEDIA(R3) = User P1 buffer addre 
IRP$V_FUNC bit set in IRP$W_STS by EXESREADCHK subroutine. 


CHECK_P1: 
CLRL 


L IRPSL_MEDIA(R3) Assume no P1 buffer 
MOVL P1(APY,RO Get address of user buffer 
BEQL 10$ Br if none 

JSB G“EXESREADCHK Check access to popbe 


(No return = no acces 
Save P1 buffer Aono in IRP 
Return to caller 


10S: MOVL_ RO, IRPSL_XQ_USERBUF (R3) 
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-SBTTL ALLOC_P2BUF = ALLOCATE A P2 BUFFER AND CHARGE USER'S QUOTA 
ALLOC_P2BUF = ALLOCATE A P2 BUFFER AND CHARGE USER'S QUOTA 
Functional description: 


This routine allocates a system buffer and returns the address in the IRP at 
IRP$L_SVAPTE, The size of the allocation, including buffer header must 


d 
A 
Fog 8a38 
E09 4: 
E09 73 
SUH: 
ae 
E09 346 : be at least 24 bytes in Length. 
394 4 Inputs: 
EO 44 : Ri = Size of allocation desired 
394 22 3 R3 = IRP address 
BE: ovoue 
4944 4 ; RO = status of request 
de09 331 : R1-R5 are preserved. 
944 338 ; Implicit Outputs: 
0609 3555 : IRP$L_SVAPTE(R3) = address of system buffer 
QOE09 3556 ; ieeturerar iad, = byte count charged to user's process 
4944 22f : IRP$W_BCNT(R3) = original byte count requested 
0609 3559 ; All parts of the P2 buffer header are initialized, except for the 
944 309 : user's P2 buffer address. 
aap 36¢ i-- 
E09 356 
E09 3564 ALLOC_P2BUF: ; Allocate a - d buff 
51 0§ E09 $565 "rn ot 5 Zero length buffer? 
4D 1 E0B 3566 BEQL 30$ ; Br if yes 
OF 8B 4343 567 PUSHR #*M<R1,R2,R3> 3; Save registers 
32.a3 51 BO OEOF 3568 MOVW = R1, IRP$W_BCNT(R3) t Save original byte count 
OC 51 401 OE13 29? CMPL R1,S°#24=P2B_C_LENGTH ; Is buffer big enough? 
03 =#1A Ets : 0 BGTRU 5$ ; Br if yes 
51 OC 08 €1 71 MOVL $*#24-P2B_C_LENGTH,R1 ; Else, set size to minimum 
51 OC CO OE1B 328 5$: ADDL2 $*#P2B_C_CERGTH,R1 : Add in size of header 
00000000 ' GF 1 ef 2 JSB GE XE SBUFQUOPRC 3; Check for buffered quota 
0— 50 =«€ ; ; R ; BLBC RO,10$ ; Branch if quota bad 
: 378 $ Quota OKAY, allocate buffer and copy info. 
51 DD OE27 28 ‘ PUSHL 1 ; Save size to charge user 
pocseege'e 1 E29 7 JSB 6 ERRSALLOCOUF : Go allocate a buffer 
06 50 +€ E2F 9 BLBS RO,20$ ; Br if success 
06 «OC E ADOL #4,SP ; Pop saved size 
OE BA E § 10$: POPR #*A<R1,R2,R3> 3; Restore registers 
5 : . RSB ; Return with error code in RO 
3 ; 5 ; System buffer allocated decrement user's quota 
53 BEDO OE § 20S: POPL + ; Restore user quota charge 
62 OCA 9€ OE 588 MOVAB P2B_T_DATA(R2),P2B_L_POINTER(R2) ; Set address to start of data 
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V04- ALLOC_P2BUF = 
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OB A 8 €3 
sa oo tH HR 
2 13 : ha 
so 8 Mos 8} BB BE 

or Ba 


On 


ATE A P2 BUFFER AND ¢ | 
R f B_W_SIZE(R2) 


Decrement user 2 Baste 


(R3) Save P2 buffer ederess 9 IRP 
aa BOFF (R3) Return buffer size in IRP 
ceases: NORMAL ,R 


Return to caller 
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XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 7:44 Oaive cro V04-00 P 
yon OU8 STARTIO = START 1/0 OPERATION met 88: 35; :54 (CDRIVER.S REIX QDRIVER.MAR; 1 is BY, 
; f 233 bot ~SBTTL STARTIO = START I/0 OPERATION 
E : é 1 } STARTIO = START 1/0 OPERATION 
: : 6 § ; Functional description: 
Th 605 : This routine is called when an IRP is ready to be processed by the driver. 
ESE 36 8 ; The request is dispatched to the appropriate routine base on the internal 
TH rt ; function code in the IRP. 
a3 609 ; Inputs: 
ERE $1 : R3 = IRP address 
Bede at ; RS = UCB address 
Ba Bip wen 
BE E16 | ovoue 
OESE 3618: RO-R2,R4 are destroyed. 
By i 
BEE 621 STARTIO:: Process an 1/0 packet 
AS 00 +4 6 ¢ de UCBSL_ ce B(R5) ,R4 Get CRB address 
54 10 A4 D0 OF62 36 CRBSL-AUXSTRUC(R4),R4 : Get CDB address 
1A3 QA O0E66 3624 novel IRPSB XQ FUNC (R3) ,R1 ; Get the internal function code 
QOE6A 3625 108% 30! SPATCH R1,TYPE=B,- 
pen ? § : function action 
OE6A 3628 <XQ_FC_V_INIT seer, - ; Startup request 
OE6A 3629 <XQ_FC_V_STOP SHU : Shutdown request 
OE6A 3630 <XQ7F C“V~CHMODE tHMODE>, - : Set new multicast List 
gee 
4343 o38 ; Other request type 
OE7C 3635 ° BUG_CHECK NOBUFPCKT,FATAL ; Fatal error 
a, 
OED 6 g : Startup unit's protocol 
Be 0 640 STARTUP: 3; Startup unit's protocol 
4C 10 OE 641 6S8B START ; Start protoco 
01 50 3 E ¢ ret BLBC RO,10$ ; Br if error on startup 
5 : 2 oz RSB ; Else, return to caller 
50 ODD OE | 645 10$ PUSHL R ; Save error return 
gf 8 E 066 BSBB STOP 3; Shutdown unit 
0 BER EBA 364 POPL RO 3; Restore error return 
O0D4C 1 : 208 BRW 10_DONE ; Complete the 1/0 request 
E9 650 ; 
3 i 3 Shutdown UNIT's protocol 
£9 ¢ : SHuT: 3; Shutdown abrate socot 
0214 (4 55 01 OE9 O28 CMPL R5,CDOB_L_PRMUSER(R4) ; Are we the PROMISCUOUS user? 
14 12 O€95 3655 BNEG 108 : Br if not 
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Yoon STARTIO = START I/0 OPERATION oe et 9 ELEY YORIVER. SRE INODRIVER.MAR: 1 . By 
0214 fe iy £97 § CLRL CdB t ait wire 3 Else, clear the PROMISCUOUS user 
1 0 0E9B MOVB #NMASC_STATE_OFF,= ; Don't forget about the CDB 
0248 C4 E9 8 CDB_B_PRM(R4J ; parameter 
04 30 EA BSBW HAs MODE ; Get setup buffer 
0D 3 EA 960 BLBC RO,90$ ; Br if error 
0 EAS 6 MOVE #xd_FC_vV_STOP,- : Set function request | 
20 A EA 6¢ CXBSB_RQ-FUNC(R2) ; 
05 ~ o7 RSB 3; Return to complete function 
7 10 OEAB 969 10$: BSBB STOP 3 Shutdown unit 
50 1 A OEA 6 § MOVZBL S$*#SS$_NORMAL,RO :; Return success 
0D29 1 EB $6 BRW 10_DONE ; Complete 1/0 request 
| 
0S OEB ees 90$: RSB ; Return to caller 
—B4 3670 ; 
+44 of ; STOP the unit 
EB4 $58 Stop: ; Stop the protocol 
54 24 AS b0 EBS 674 MOVL UCBSL_CRB(R5S) ,R4 ; Get CRB address 
54 10 AG 0 —B8 3675 MOVL CRBSL AUXSTRUC(R4) ,R4 ; Get CDB address 
122C 1 eee ore BRW SHUTDOWN_PROTYP 3; Shutdown the unit 
OEBF 678 : CHMODE = set new multicast List 
EBE 3680 EHMODE 
04AD 30 OEBF 3681 " BSBW SETUP_MODE : Get XMIT setup buffer 
06 50 €9 ECe 6 ¢ BLBC RO,1 3; Exit if error 
06 90 OECS 36 MOVB  #XQ_FC_V_CHMODE,- ; Set function request 
20 A2 OEC7? 3684 CXBSB_RQ~FUNC(R2) : 
9E 17 pECe ? 2 JMP asp)? ; Call back caller and return 
ODOE 31 OECB 3687 108 BRW 10_DONE ; Complete 1/0 request 
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-SBTTL START = START UNIT'S PROTOCOL 
START = START UNIT'S PROTOCOL 
Functional description: 


«MAR; 1 


This routine initiates the protocol on the unit. The QNA is reset if first 
unit online. The free List is filled and the first receive started. 

If a failure occurs the unit shutdown sequence is entered. 

Inputs: 


Ri = IRP address 
R5 = UCB address 


IPL = FIPL 
Implicit inputs: 


IRP$L_MEDIA contains a copy of the mode buffer specified by 7 user. 
IRP$W_BOFF contains the quota taken from the user for the unit 


Outputs: 
RO = Status return for startup request. 


R1,R2,R4 are destroyed. 
R3.R5 are preserved. 


; Start protocol operation 


CMPB #NMASC_LINPR_POI,- 3% Are we in PT-T0-PT mode? 
CBSB_ XQ _PROTRS) 3% 

BNEQ 3% Br ifn 

MOVZWL #IRPSC_LENGTH,R1 33 pel siz ° ‘of an IRP 

PUSHL 3% Sav 

JSB G*EXESALONONPAGED re Allocate he IRP 

POPL R3 3% Restore R 

BLBS RO,1$ 3% Br if success 

MOVZWL #SS$_INSFMEM,RO 3% Set error return 

RSB 3% Return to caller 

MOVL UCBSL_xXQ_STIRP(RS) 3% Save startup IRP 

BISW eifttt x0 START !U (BSN. XQ°STACK,- ;% We are now in the startup 
UCBSW_BEvSTS(RS) ; and stack wait state 

TSTL CBSL_xXQ_CPID(RS) + reste ete saved already? 


Br if y 
MOVL  UCBSL_CPID(RS) ,.UCBSL_xO beR cad" ‘Else, save creator PID 


; Set up idle UCB 


MOVZWL #XMSM_STS _ACTIVE,- 
UCBSL ~DEVDEPEND (RS) ; Reset status and error summar 


CMPB #xo_Ft_v VRESTART. IRP$B_ xd _FUN r . ;' Is this a re-start operation? 


BEQL “Br - A t reset the P 
MOVL §IRPSL_PID(R3) ,UCBSL_xa _pipirs) ; "Save starter's PID 


Page 82 
nel z, | 
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YOen O08 START = START UNIT'S PROTOCOL ety 7 30:86 LORIVER. SRETXODRIVER.MAR: 1 - Bd) 
ats reg $ 
4 oe ; Check for COB 
54 26 AS 00 at Dk: bs: MOVL  UCBS$L_CRB(RS) ,R4 ; Get CRB address | 
52 10 A4 OD FIB 37 9 MOVL CRBSL-AUXSTRUC(R4) ,R2 ; Get CDB address, crash if not present | 
020F f 28 FIF 37 INCB COB_B_UNTCNT(R2) 3; One more unit on this controller 
E F 3 7 § BBS #COB_STS_v {NITED .~ ; Br if already inited 
03 024A ¢ F 7 GbG_8.S1S(R ),10$ 3 
009 31 . , : BRwW of ; Else, init COB | 
4. 52 DO OF RC 736 10$:  MOVL. ~—-R2, RA ; Copy CDB address | 
50 6 pd CS) «SECO OF 03 MOVAB UCBSB_XQ_CDBPRM(R5),RO ; Get UCB parameter address | 
1 40 C46 «=9E OFS4 357 8 MOVAB CDB_B-SETPRM(R4) ,R1 ; Get CDB parameter address | 
5 01 9A OF39 375 MOVZBL #UCBSC_xQ_CDBPRM,R2 ; Set size of parameter List 
Ose 3761 | 
4 : P66 ; Check order of UCB parameters | 
a ¢ 764 : ASSUME UCBS$B_XQ_CON EQ UCBS$B_XQ_CDBPRM 
oree 706 > Check order of CDB parameters | 
3 j 
a 788 ASSUME CDB_B_CON EQ CDB_B_SETPRM | 
OF 3C +5 ASSUME NMASC_STATE_ON NE -1 
OF 3 771 ASSUME NMASC”STATE_OFF NE -1 
61 $9 91 OF3C ak 13$: CMPB (RO), TR1) 3 Match? 
7 12 OF3SF 377 BNEQ 18$ 3; Br if no 
80s: 81 90 OF41 774 MOVB (R1)+,(RO)+ 3; Store CDB value in UCB 
F552. FS OF 44 08 SOBGTR R2,13$ : Loop if more to check 
ore r7 : NOW, check if user has given a hardware physical address. | 
Ora? 8 : RO = Address of parameters in UCB 
ores 4 , 3 Ri = Address of parameters in CDB 
OF47 37 ¢ ‘ ASSUME CDB_G_PHA EQ CDB_B CON+1 
F47 37 ASSUME UCBSG-xXQ_PHA EQ OCB$B8_xQ_CON+1 
60 FFFFFFFF or ot +4 f : CAP 7 ; is yser physical address defined? 
; Br es 
04 AO FFFF of et F30 f 6 hy 7 tas j a: user ghvevest address defined? | 
; Br no 
40 AS 0804 8F B80 a 7 3 15$: MOVW #NMASC_PCLI_PHA, IRP$W_XQ_CODE(R3) ; Assume bad paysicat address 
81 9 D1 at 7 CMPL (RO)+,TR1)+ 3; Physical address match?? | 
12 OF6 790 BNEQ ; Br no 
89 Bi OF63 3791 CMPW (RO)+,(R1)+ 3 Still match?? 
is £88 792 BNEQ ; Br if no 
Ec&4 oD F6 793 16$: MOVL CDB_G_PHA(R4) ,- ; Return hardware set address 
C5 F6C 3794 CB$G_XQ_PHA(RS) 3; just in case we defaulted 
C46 BO OF 795 MOVW CDB_G_PHA?4( - 3 eee 
C5 ah 19 UCB$G_XQ_PHA+4 (RS) ; aa | 
F76 3798 : Check users buffer size - must not be more than twice the hardware buffer 
Fe 444 ; size. (Already has been checked against max message size). 
3 
90 F7 601 MOVW #NMASC_PCLI_BUS, IRP$W_XQ_CODE(R3) ; Assume bad buffer size 
C OF7C 2 MOVZWL CDB_W_BSZ(R&Z) RI 7 Get device buffer size | 


] 
| 
XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 2:37:44 \VAX/VMS Macro v04-00 Page 84 | 
yeti START = START UNIT'S PROTOCOL ets 7 8:30:86 LORIVER. SREIXODRIVER.MAR: 1 . (Rf) | 
| 
05 00DC CS) =6EB SOO 81 3 BLBS UCB$B_XQ_DCH(R5S) ,17$ ; er if user gant do data chaining 
F ° 4 ; && Maybe this is an Internal IRP user 
51 0119 C4 «AO OF 5 ADDW CDB_W_BSZ(R4),R1 ; Compute twice the normal buffer size | 
51 42 A5 81 OF8B 6 178: CMPW BSW-DEVBUFSIZ(R5),R1 : Is buffer size okay? | 
A 1A OFBF BGTRU ; Br if too cores 
40 A B4 OF91 38 CLRW IRPS$W_XQ_CODE(R3) ; No bad parameters 
1 AS O0F94 0 BISW Ucesh x0_RUN,= 3 Indicate we have entered RUN mode 
68_A £96 10 UCBSW_BEVSTS(RS) ; | 
1780 30 OF9 11 SBW ve AULTI : Copy multicast address List 
9B 381g ASSUME NMASC_STATE_ON EQ 0 | 
F9B 1 ASSUME NMASC_STATE OFF EQ 1 
07 BOA 3 8 44 14 BLBS UCBSB_XQ_PRA(R5),173$ ; Br if not promiscuous 
ODA C FA 15 MOVB UCB$B_XQ"PRM(RS) ,- ; Else, enable promiscuous mode 
0248 C4 FAG 16 CDB_B_PRA(R4) 
03¢5 30 OFA7 17 173$: BSBW SETOP- MODE 3; Allocate setup mode buffer 
06 50 34 -“ a8 BLBC 0,175$ ; Exit if error 
06 0 OFAD 381 MOVB § #XxQ_FC V_CHMODE,- ; Set function request 
20 A OFAF 3820 CXBSB_RQ"FUNC(R2) : 
9E 16 pret 821 JSB a(SP)F : Complete request 
05 AS 4 § 175$: RSB ; Return to caller 
$ 
OF : : 3; Error on parameter validation 
40 AS FIEB CF42 = BO fee 8 § 18$: MOVW BAD_PARAM TBL=-2(R2),1RPS$W_xXQ_CODE(R3) ; Return parameter code | 
50 14 9A OFBB 3827 19S: MOVZBL $*#SS$_BADPARAM,RO ; Return bad parameter error | 
05 ares : 8 RSB ; Return to caller 
OrBF $830 ; Initialize CoB | 
51 O20E 8F 3C «(OF BF S36 208: MOVZWL #CDB_C_ZERO,R1 ; Get portion of CDB to init with zero | 
3E BB OFC4 383 PUSHR #*M<R1-R2,R3,R4,R5> : Save registers 
62 51 00 62 00 2¢ OFC6 3834 MOVCS #0, (R25,#0,R1, (R2) : Zero the structure | 
3 BA OFCC 3835 PR #A<R1R2R3,R4,RO> ; Restore registers | 
OFCE 836 ASSUME CDB_L_FOFL Ed 0 
FCE 383 ASSUME coe L_FQBL EQ CDB_L_FQFL+4 | 
54 82 7E OFCE 3838 VAQ (R2T4+°R4 ; Skip Link pointers, copy CDB address 
D1 839 ASSUME CDB_W_SIZE EQ CDB_L_FOQBL+4 
82 51 B60 OFDI 3840 VW R1,€R2)+ ;_ Store size of structure | 
FD4 3841 ASSUME CDB_B_TYPE EQ CDB_W_SIZE+2 
are? 306 ASSUME COB_B FIPL EQ CDB_B TYPE+1 
82 0833 8F BO OFD4 4 Ve  #<IPLS_xQ_FIPL@8>TDINSC_CDB,(R2)+ ; Set structure type and FIPL 
SFOS 3846 ASSUME COB _L FPCEQ CDB_B_FIPL#1 | 
82 OOO016EO'EF 9E OFDIO 45 VAB  FORR_PROC,(R2)+ 3; Set fork process address 
FE rk ASSUME COB_C_FR3 EQ COB teeta 
FE 4 ASSUME £08 L_FR4 EQ CDB_L_FRS+4 
82 7C OFE rh: CLRQ (R2T+ ; Clear fork R3 and R4 
OFE 4 ASSUME CDB_B_NEXTXMT EQ CDB_L_FR4+4 
FE 50 ASSUME CDB_B_NEXTRCV EQ CDB_B NEXTXMT+1 
FE 51 ASSUME CDB7B-RCVMAP EQ CDB_6_REXTRCV+ | 
FE 3¢ ASSUME cDB B"XMTMAP EQ CDB~B-RCVMAP+1 
82 D4 OFE 5 LRL (R2T+ ; Clear slot in use flags 
FE4 3854 ASSUME CDB_L_RCVMAP EQ CDB_B_XMTMAP+1 | 
FE4 55 ASSUME CDB_L_XMTMAP EQ CDB_L_RCVMAP+<4*<MAX_C_RCV-1>> | 
51 A QA OFES 2$ MOVZBL &#<MAX"C_XMT-1>+<MAX_C"RCV-1>,R1 ; Sef Humber of mapping vectors | 
82 1 ce FE7 57 30$: MNEGL #1 .(ne78 3 Indicate no mapping info 
FA 51 FEA 28 SOBGTR 0 ; Loop more 
FED 385 ASSUME CDB_L_RRINGPA EQ CDB_L_XMTMAP+<4®<MAX_C_XMT=1>> | 
| 
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52 00000098 er 0 F pom, #CDB_Q_QUEVES-CDB_L_RRINGPA,R2 Skip ring eneey y poigcere 
1 A OF MOVZBL #cpB.t QUEUES,R1 ~ Set nunber of queue | eads 
zg. D F 40$ MOVAL (R2)7(R2)+ Set forward Link 
82 FC Ad DO OF MOVL a4 (RB). (R24 i Set backward Link | 
F6 5 F F SOBGTR R1,4 f more Listheads 


d 
U 

4 $ p i 

3 SETBIT #COB_STS_V_INITED,CDB_B_ ink 90R, * ; Set initial status bits 
; ; Initialize CDB defaults 

4 Mov ucesy. xQ BSZ(R5), - ; Init CDB buffer size 

4 
8 
0 
z 
7 


0112 C4 


ASSUME INIT_C_AQUOTA LE 255 
ASSURE ¢ CoB 6 4: UOTA ey dB 8 _AQUOTA+1 


eciRitc : Initialize Maximum QUOTA 


INIA AION 2 SS | S" OOQOOOCOCO TN HNN 


MOVW ocesy XQ *HBOCRS), CDOB_W_ QUOTA(R4) ; Set initial quota 
C4 CoB “jQUOTA A(R4) 3 end zero Additional QUOTA 
ASSUME ucese” XQ_MLT + “ae x0. PRM 
ASSUME CDB_B “ALT EQ 
0248 C4 OODA CS B60 9 MOVW uCBSB_xa "PRM(RS)S mae "8. PRM(R4) ; Set the promiscuous mode | 
; _and the all multicast enable 
50 0000 CS 9 MOVAB UCBS$B_xQ COOPRAKRS) « RO ; Get address of UCB parameters 
51 og6d C46 OE MOVAB CDB_B-SETPR : Get address of CDB parameters 
5 07 9A MOVZBL #uUCB$C_xa Set PRM. +R2 3; Set size of parameter List 
81 80 9 4 45$: MOVB (RO)+, TRIS+ 3; Store parameters 
FA 52 F SOBGTR R2,4 3; Loop if more 
16EF 30 6 BSBW MOVE wttt, ; Copy multicast address List 
0110 C4 =B0 MOVW CDB_@_BSZ(R4),- 3; Set buffer size 
7E AS 2 UCBSW~ ~Bent RSS 
9 PUSHQ ue é 
56 54 00 0 MOVL R4,R6 3; Save CDB address 
54° 26 AS 1 MOVL  UCBSL_CRB(RS) .R4 : Get CRB address 
57 28 AS oO MOVL § UCBSL“DDB(R5S) .R7 B addres 
0118 C6 04 A7 00 MOVL DOBSL R7),CDB_L_UCBO( Re) ; Set UCB 40 address 


50$: 


oa ae 


SNA AAAOMUIMIUIUIM ww 


4 
8 
> Allocate map ms — for receive buffers and one transmit buffer. 
5 MOVW #511, UCBSW_BOFF (R5) 3 Zot weret case byte offset 
8 
9 
0 
4 


DOOQOCOCOCOSOCOSSSSOOOOOOOOOOOOOOOOOOOOOOOOOO 


7C AS) OFF 8F = BO 


; Save R6,R7 
ASSUME VECSW_MAPREG+2 EQ VECSB_NUM | 


WUIWIS 9 9 9 MNWIWNMIWAIWAIS OUI BS OOWOS DWM OO OQUIVIMUVIN D SINNN ST SP NSO 


MOVZWL #MAX_PKT SIZE+18,- ; Set transmit buffer size to max 
5 ucose BCAT(RS) : Ethernet packet size + header 
6 JSB *10CSALOUBAMAP ; Allocate a set of transmit registers 


4 
So 
ce ce ce ee ee em em ee ee ee me ee ee ed ad ed od od = od 


5 ASSUME VECSB_ -NURR EG+1 EQ VEC$B- DATAPATH 
34 AG OG CLRL CRESL™ INTD+VECS$W_MAPR PREGTR4) ; Clear map register + datapath 
56 1C ag DE 76 MOVAL CDB_L-RCVMAP(R6) RE 3 Get 5 Bepping slot address 
57 0 SA 7A MOVZBL #MAX_C_RCV-1,R ; Get number of receive slots 
0000 o'¢f 1 4 55$: JSB 610 SALOUBARAP g Bi logate a set of map registers 
es BLBC kK r if unavailable 
86 4AQ OD 6 1 MOVL i INTD+VECSW maandate bey ; Save map info 
FO 57 —s*#F SOBGTR 3 Conti 
i) 
1 
3 


SOOOOCOoooooooo 
© Oceana cD co 
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S$ QNA dr X/VMS Macro V 
START UN -SEP-1984 0:54 CDRIVER.SRCIXQDRIVER.MAR;1 
23 50 €9 1099 3917 BLBC Br if unavailable 
109C¢ 3H ASSUME tt § HTMAP EQ CDB_L RCUMAP+<4<MAX _C_RCV-1>> 
66 34 a4 00 } : 4h, MOVL CRESL INTD+VECSW “MAPREG(R4) (R6) ; Save transmit map info 
} “ 2 1 ; Allocate mapping for QNA RING structures. 
56 10 a4 00 19A0 3 MOVL  CRBSL_AUXSTRUC(R4),R6 ; Get CDB address 
9 925 ASSUME CDB_G ee EQ CDB_G_RRING 
10A4 39 § ASSUME (CDB_G_XRING ee ee C_RRINGORCY. K_LENGTH 
57 0166 C6 9E 10A4 39 BOvAR CDB-G MAPPED(R6) ,R7 : get stérting ring address 
p00 F 6AB 4 9 § BICW #*C2VASM_BY se 3 Get PCBB byte offset 
7C A 7 10AD 39 R7 ,UCBSW BOF F ( ae 
7E AS 00A8 BF BO 1080 3930 Mov ste C ANAPPED UCBs. BENT(RS) : Set Block size 
00000009" ¢ 16 1086 3931 JSB *TOPSALOUB ; Allocate map registers 
09 —€8 10B8C 39 § BLBS : Br if alieces ed 
10BF 33 60$: POPQ : Restore R6, R 
50 0344 BF «3 10¢@ 934 MOVZWL iss. INSFMAPREG,RO ; Set insufficient map registers 
05 ie 932 RSB 3; Return with error 
1968 937 ASSUME VECS$W recy EQ VECSB_NUMREG 
10C8 838 ASSUME VECS$B_N MREG+1 EQ VEC$B_DATAPATH 
34 AS «6020 «61008 «(3939 658: MOVL CRBSL “INT D+VECSW_MA eben +e, - ; Save RING mapping info 
0162 C6 ee Bey CDOB_L_ “A INGMAP ROD 
pee Be : Convert the virtual RING address to a UNIBUS mapped address 
09 EF 10CE 3944 EXTZV S*#VASV_VPN,- : Get RING page number 
51 57 15 1909 945 S*#VASS_ a” os at a 3 
50 Q0000000'GF DO 10D 94 MOVL G*MM riicdee ASE, RO t SPT address 
78 AS = 6041 DE 10DA 394 MOVAL (RO) -jtoe SUAPTECRSS $ $ y # PTE address 
00000000'GF 16 10DF 3948 JSB goto ADUBAMAP : Load the PCBB map registers 
2 O07 #=+EF 10€5 3949 EXTZvV @# Get (BAIG-BAT? 
51 34 AG 1068 3950 Hake INTD+VECSW_ MAPREG(R4). RI: 
1 10 78 10€8 3951 ASHL & ; hove, to BH word 
51° 7C AS BO 10EF 93¢ MOVW uce$u _BOFF(R 
34 AG «FO «(10F3) «(395 INSV sya Forbsvecse. TMAPREG (RA) « - 4% BA9-BA15 
51 07 O09 Hb 954 3 
22 11+ «+10F 955 BRB 3 teach 
10FB 328 
Bf 957 70S: 3 
a eh ; Compute physical address tO start of rings for u-VAX I. 
igre 960 ASSUME te Eta EQ CDB_G_RRING 
10FB 3961 ASSUME (CDB-G-XRING EQ CDB_G_ RRINGSRCV. K_LENGTH 
57 0166 C6 9E 10F 96 MOVAB CDB-G_MAPPED(R6),R7 ~_ =; Get Starting ring address 
51 57 15 09 EF 1100 396 EXTZV #VASV"VPN AVASS VPN,R7, Al ; Get virtual page number 
50 ~00000000'GF oD 119 964 MOVL G*MM ase _ SPTBASE ,RO ; Get'b base address of SPTs 
50 6041 D 11 965 MOVL ery R1 “RO. 3 he PTE conte 
51 57 4FFFFFEOO 8F CB 111 96 BICL3 #*C<VASM BYTE>,R7,R1 : ai aw Be. ottees (8A00-BA08) 
1118 396 ASSUME PTESS PFA GF 18 
51 OD 09 50 #F0 HT 3g INSV RO,# “HS, R 3; Copy BA09-BA21 
111D $70 80$ 3 
1110 397 : a. alculate the physical/virtual address of each of the ring buffer 
111D 397 3 ries, saving the addresses in the PHYSICAL ADDRESS/VIRTUAL 
111D 397 3 ADDRESS VECTOR 


XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 7:44 X/VMS Macro Vv04-00 
Onn O08 START = START UNIT'S PROTOCOL ~$Fr 1382 §8;30:8¢ DRIVER. SRCIJXQDRIVER.MAR; 1 
1110 7 : 
50 0166 § 9E 11 ore MOVAB £DB_G_ARING(RG) -RO ; Get first ring entry 
D4 11 3f8 CLRL R ; Use R7 as ring index 
44 A647 1 oO 11 977 90$: MOVL R1,CDB_L_RRINGPA(R6)CR7); Save RING physical address 
CO 1129 378 ADDL  #RCV_C“LENGTH ; Skip to next 
76 A647 D0 110¢ 397 MOVL RO, CBB-L_RRINGVA(R6)CR7J:; Save RING entry virtual address 
¢ c9 1131 3980 ADDL #RCV_C“LENGTH,R ; Skip to next 
EC F 1 4 , 1 AOBLSS #MAX_C_RCV,R7,90$ 3; Loop if more 
11 i 9 i ASSUME CDB_G_XRING EQ CDB_G 4) al alta C_RCV+1>*RCV_C_LENGTH> 
44 A647 51s 984 MOVL R1,COB_L_RRINGPA(RE)ER7); Save RING physical address 
1 oc c6 11 985 ADDL  #RCV_C“LENGTH,R1 : Skip over chained entry 
0 .. 4 112 oB9 ADDL #RCV_C_LENGTH,RO ; Skip over chained entry 
27 D4 114 885 CLRL R7 7 
68 A647 1 dO 114 989 100$: MOVL R1,CDB_L_XRINGPA(R6)CR7]; Save RING physical address 
of CO 114A 3990 ADDL #XMT_C"LENGTH,R1 : Skip to next 
009C (647 0 00 1168 991 MOVL RO, CBB-L XRINGVA(R6)CR7): Save RING entry virtual address 
50 6=6(0c £8 115 936 ADDL #XMT_C_LENGTH,R ; Skip to next 
EB 57 2 F2 1156 399 AQBLSS #MAX_C_XMT,R7,100$ ; Loop if more 
68 A647 1 00 1338 44 MOVL R1,COB-L_XRINGPA(R6)CR7); Save last RING physical address 
113F 99 : Initialize receive ring buffer entries 
57 08 9A 115F 998 MOVZBL #MAX_C_RCV,R7 ; Set number of entries in ring 
51 0166 C6 9E 1168 99 OVAB CDB_G_RRING(R6),R1 : Get address of RING buffer 
8000 of B0 Hf 2 rt 1108:  MmOVW SRCV AFLG ALLASTo~ 3 Init flags 
08 Al B84 116C 400 CLRW =- RCV W"STS(R1) : Zero status 
51 0c C Viet 400 ADDL #rcd 4 LENGTH,R1 : Skip to next entry 
F2 57 F 1308 $208 SOBGTR R7,1T0$ 3; Loop if more 
1123 4906 : The Last entry chains’ back to the first 
8000 af B0 1175 4008 MOV #RCV FLG IM LAST ,~ : Init flags 
$e my 60 117A rtd MOVW COB=L RRINGPACRG) .~ : Set the chain address 
46 A6 «9BSOC*‘'I7F s01¢ MOVZBW CDBL“RRINGPA+2(R6),- ; Set high part of chain address 
02 Al 1188 401 RCV_W_ADDRHI(R1) 3 
AB 1184 4014 BISW #RCU_BSC_M_CHAIN!- 3 Indicate chain operation 
1185 4015 RCV_DSC_M_VALID,=- ; and valid address 
02 Al C000 8F 1185 4 1 RCV~W_ADDRHI (R15 : 
1 “ 2 \8 > Initialize transmit ring buffer entries 
57 04 9A 118A 49 0 MOVZBL #MAX_C_XMT,R7 ; Set number of XMIT entries 
51 ahs §6 9E 118D 4021 MOVAB CDBG RRING(R6) RI ; Get address of RING buffer 
8000 8F B80 11 4 ; 120$:  MmOVW #XMT_FLG_M_LAST,= : Init flags 
61 1196 4 XMT_@_FLAGTR1) : 
08 Al B4 1197 4024 CLRW XMT_W STS(R1) ; Zero status 
51 O¢ 9 119A 4025 ADDL axnT f LENGTH,R1 :; Skip to next entry 
2 F 18 3 § SOBGTR R7,120$ 3 Loop if more 
Hf 3 3 : The last entry ‘chains’ back to the first 
8000 8F B80 11A0 4030 MOVW = #XMT_FLG_M_LAST,- : Init flags 
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Yoon O START = START UNIT'S PROTOCOL ety 7 B35 :ée LORIVER. SREINQDRIVER.MAR: 1 ” B v0é 
61 1144 4031 XMT_W_FLAG(RI) | 
66 Ap BO | 4 § MOVW CDOB_L_XRINGPA(R6) ,- ; Set the chain address 
4A 11A8 4 XMT-W-ADDR(R1) : 
6A AG 9B 11AA = 4034 MOVZBW Se hd aati ; Set high part of chain address 
02 Al 11AD 4035 XMT_W_ADDRHI(R1) 3 
AB 1185 ? § BISW OrOT Ost .CHAIN! = : Indicate hein operation 
- - 3; =60and va address 
02 Al C000 8F 1180 40 8 XMT—W_ADDRHI (R15 : | 
1183 they ; Initialize contiguous buffer area for u-VAX I. 
1183 thes CPUDISP <<790,140$>,- 
11B5 404 <780,140$>,- 
1383 epee <750,140$>,- 
1185 4045 <730,140$>,- 
1182 1308 <UV1,122$>> : Initialize buffer area for UV1 
11CF 4048 122$: 3; Init u-VAX I buffer area 
52 0210 C6 DO 1ICF 4049 MOVL coe L_UV1BUF (R6) ,R2 ; Get buffer area address 
09 12 1104 4050 BNEQ 1238 ; Br if present 
11D6 4051 POPQ R6 : Restore R6, R7 
50 0124 8F 3C 1109 1026 MOVZWL #SS$_INSFMEM,RO ; Else, return error 
05 11DE 405 RSB 
H1DE 4088 1238 
11DF 1329 ; Compute COLI palma address of buffers in buffer area 
52 0C A2 9E 11DF 405 MOVAB 12(R2),R2 ; Get start of buffer area 
50 1 9 EF 1163 4058 EXTZV #VASV_VPN,#VASS_VPN,R2,RO ; Get virtual page number | 
51 Q0000000'GF DO 11E8 4059 MOVL SAMGSGL SPT ASE,R ; Get base address of SPTs 
0 6140 00 IEF 4060 OVL 1)CROJ,RO : Get the PTE contents 
51 52 FFFFFEOO 8F CB ire 9g Sitta, ees Pre ceengee : Get buffer offset (BA00-BA08) 
51 OD 09 50 FO 11FB 40s INSV A97H13,R1 3: Copy BA09-BA21 
0 »d4 1508 4064 CLRL R : Use RO as receive buffer index 
OAC C640 Tf =! f 4065 124$: MOVL Booey FANG) BROT ; Save receive physical address 
0C4 C640 2 00 120 $808 MOVL R2,CDB_L_RCV_VA(R6)LROJ ; Save receive virtual adress 
8) OoDbbSEA BE CO 1518 coe pet Ee SLs-Oul-ny ft She Co nent butter 
E2 38 0S F2 121C 2069 AOBLSS #MAX~C_RCVUV1,RO, 1248 ; Loop if more 
“9 D4 «(1 rt tA RO 3; Use RO as transmit buffer index 
00CO C640 a, ee 4071 MOVL EBB LAT PCR) ERO) 3; Save transmit physical address 
00D8 C640 2 00 1 1078 MOVL R2,CDB_L_XMT_VA(R6)CROJ ; Save transmit virtual address 
51 QOO00SEA BF CO 1 E 407 ADDL #MAX_BOFSIZ_OV1.R1 : Skip to next buffer 
52 OPRORREA f 3 1 4074 ADOL #MAX_BUFSIZ wi Re ; nae 
€2 50 01 F ; 4 03 AOBLSS #MAX~C_XMTUV1,RO,125$ : Loop if more | 
54 56 00 1240 4 aS 1408: MOVL R6,R4 ; Set R4 to CDB_address | 
1243 407 POPQ R6 3; Restore R6, R7 
1246 407 
: ig ? ? 3; Setup fork process to start CDB timer 
88 1 rt 4 § PUSHR #*M<R3,R4,R5> ; Save registers 
E2 1248 4 BBSsS § §©_s#cbB SfS_V TIMER : Br if timer already going | 
24 024A C4 124A 4084 CDB_6 STS(R4),1508 ; 
4 88 1246 4085 BISB #OPT wou D.- 3; Do not allow driver to be unloaded 
90009098 EE 1 2 4 § DPTSTAB+OPT 4 3; while the TQE is active 
VAL i , ; Get the address 
5 18 C4 DE 1 4 MOVA CoB TQE(R4) ,R 6 he TQE add 
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A dr 
START = START UN vO. 
20 AS 00000000 01312000 8F 7D 125A 4 Ova eine ait TQESQ -DELTACRS) Ay the delta time | 
53 Hat 43 1266 1088 MOVAB ait RS et a ress of timer wakeup routine | 
2 A 5 3 1268 4090 MOVB #TOE c sched TOESL _ROPIB(R ) ; Set the TE request type 
QOBA 0 ! gf 1095 BSBW FORK 3 Create fork process for TQE 
i 4098 Get hardware CSR esérene | 
1272 4095 isos: POPR #*MCR3,RS (833 ; nesters registers | 
52 34 AS DO 1274 4096 MOVL UCBSL_¢RB Re B adddress | 
52 £8 4097 MOVL  acRBsC_ Aa. * 1pB(R25, RS; y CSR address | 
] 4 1933 : Master reset device 
1 4s 4101 ° DSBINT UCBSB_DIPL(RS) ; Sync access to UCB | 
OE A2 02 8B0 : 83 2138 MOV #XQ_CSR_M_RESET,CSR(R2) ; Master Reset device | 
1287 t1oa : The master reset will take some time to complete ... 
! of tib2 3 so we will delay to give the QNA some time. 
1287 1109 : pinseat’ #1,#XQ_CSR_M_ERR,CSR(R2),W ; Wait for 10 usec, bit should not set | 
Oc A2 0050 8F BO 5 4108 #*0120, VECTORTR2) F Sei vector address | 
\¢8 AB : Copy the Ethernet Hardware Address 
0254 C4 62 90 1383 tig : MOVB PHYADDO(R2) ,CDB_G ores ey: ; Save Hardware address | 
0255 (4 02 A2 90 1288 411 MOVB PHYADD1(R2),CDB-G_HWA+1(R4) ;... 
0256 C4 O4A 90 12BE 4114 MOVB PHYADD2(R EB BHMAE A) : bua 
0257 C4 OBA 90 1204 4115 MOVB PHYADDS(R2),CDB_G HWA+5(R4) ; i ee 
0258 C4 08 A 90 12CA 4116 MOVB PHYADD4(R ),CDB_ G_H HWA+4(R4) ; een 
0259 C4 OA A 90 : ? aii% MOVB PHYADDS(R ),CDB_ G_ “HWA+5(R4) ; aee 
1206 4119 : Set CSR mode and enable receiver 
; | 
OE A2 O02 AA is aH BICW #XQ_CSR_M_RESET,CSR(R2) ; Clear the master reset 
12DA 4158 ASSUME NMASC_LINCN_NOR EQ 0 | 
12DA 4124 ASSUME NMASC— “LINCN_ LOO EQ 1 
06 024D C4 ce 12DA 4125 C0B_B “CON(RS) , 160$ ; Br if LOOPBACK is enabled 
OE A2 0100 8F A 12DF 41 8 BISW #xQ “CSR ae ILOOP CSR(R2) ; Else, DISABLE LOOPBACK 
OE A2 0040 8F AB 12E5 41 160$:  BISW #XQ"-CSR-M “INTENA, CSR(R2 ); Enable transmit sntorrupts 
44 AG BO 12EB 4128 MOVW COB. L_RRINGPA( Ras - ; Set address of receive list entry 
04 A2 12EE 4129 RCVCIST(R2) 3 
46 AG 90 12F0 41350 MOVB CDOB_L_RRINGPA+2(R4),- ; and high order part 
06 A2 12F3 4131 RCVCST1(R2) 
68 AS «BO 12F5 «41 § MOVW CDOB_L_XRINGPA(R4) ,- ; Set address of transmit List entry 
08 A2 12F8 41 XMTCIST(R2) 3 
6A AG 90 12FA 4134 MOVB CDOB_L_XRINGPA+2(R4),- ; and high order part 
OA A2 12FD 4135 XMTCST1(R2) | 
' A; a § ENBINT ; Re-enable interrupts 
i a 8 : Initialize QNA mode. | 
906A 30 1 4140 ° BSB ab tok MODE : Setup the QNA mode | 
25 50 9 1 4141 BLBC ; Exit if error 
0 0 1508 £148 MOVB One ; Set function request 
20 A 130A 414 CiBSB, ra- ywetR2) ; 
9E 16 130C 4144 JSB ; Complete function request 
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-- ; Indicate QNA is running 
Indicate UNIT is running 


: ast CRB adddress 

0$,RO ; Get CSR address 

); Enable receive interrupts | 
; Start the receives 
AL ,RO ; Return success 
180$: RS 3; Return to caller 
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{FORK TIMER - Routine to create a fork process to start a timer 

: This routine starts up a FORK process which is used to start a timer. 

Inputs: 
R3 = Address of system routine to handle the timer expiration. 
R5 = Address of TOE block 


IPL = Greater than Queuveast IPL 


POOOAAOAIOOOOOOODON—o OL fmm 


Outputs: 


Fork process is started. 
R3, R4 are destroyed by EXESFORK 


FORK_TIMER: : Create fork process to start timer 
MOVB #DYNSC_TQE,FKB$B_TYPE(RS) ; Set structure type 

MOVB #IPL$ GUEUEAST, FRBSB_FIPL(RS) ; Set IPL of fork process 

PUSHAS B*START_TIMER ; Push address of fork process 


G*EXESFORK ; Create fork process to start timer 


OA AS OF 90 
OB AS. 06 90 


3D' AF 
00000000'GF 17 


++ 
START_TIMER = Fork process to start the CDB timer 


This routine starts up the CDB which is used to monitor the QNA controller 
for proper operation. 


Inputs: 
R5 = Address of TQE block 
IPL = Queveast IPL 
Implicit inputs: 


TQE$Q_DELT 
TOESL-ROPI 


Outputs: 


ne} = Delta time interval 
( =f 


A 
D(R5S) QE request type (SSSNGL or SSREPT) 


RO-R3 are destroyed. 
TQE element added to timer queue 
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SETUP_MODE - SETUP THE TRANSMIT BUFFER T B28Ep=19 & 0:54 CORIVER.SRCIXQDRIVER.MAR; 1 


} $3 : i id -SBTTL SETUP_MODE = SETUP THE TRANSMIT BUFFER TO INIT QNA 
} } ? 1? : SETUP_MODE = SETUP THE TRANSMIT BUFFER TO INIT QNA 
: 2 : 19 : Functional description: 
1369 4221 ; This routine initializes the TRANSMIT buffer the sets up the QNA operating 
: 83 : § 3 mode. 
69 4 é : Inputs: 
1369 4 : : R3 = IRP address 
1369 4 : R4 = COB address 
! 83 Pr 3 3 R5 = UCB address 
69 4 p : IPL = FIPL 
1363 4 é : Outputs: 
1369 4 4 : RO = status of request 
1369 4 36 : R1,R2 are destroyed 
1369 4238 SETUP_ERR: ; Setup error 
50 0124 8F 3C 1369 4239 MOVZWL #SSS$_INSFMEM,RO ; Set error return 
05 1308 ? rt RSB 3; Return to caller 
136 4 4g SETUP_MODE : 
53 bd 1 sf 424 PUSHL R3 ; Save R3 
51 00C8 BF 3C «61371 «242464 MOVZWL #CXBSC HEADER+INIT_C_BUF SIZE R1 ; Size of init buffer 
ewer ae sent ! 16 ? ¢2 jo g ,CXESALONONPAGED 3 Allocate. he SETUP Transmit buffer 
3 Restore 
—E7 50 €9 137F 4 23 BLBC RO,SETUP_ERR : Exit if error 
3C 6BB C1382 «4 ‘8 PUSHR #*M<R2,R3,R4,R5> ; Save registers 
62 51 FF BF 62 00 2C 1384 424 MOVCS #0,(R2),#-1,R1,(R2) : Fill structure with BROADCAST! 
3¢ = oBA 88 4 20 POPR #*M<R2,R3,R4,R5> ; Restore registers 
8p 4 3g : Initialize buffer to look Like a CxB 
0094 c3 52 DO 138D 4254 MOVL  R2,IRP$L_XQ_SETUP(R3) _; Save address of setup buffer 
1392 4255 ASSUME CXB$B_TYPE EQ CXB$W_SIZE+2 
1392 4 2$ ASSUME CXB$B_CODE EQ CXB$B_TYPE+1 
DO 1392 425 MOVL #<DYNSC_CXBa16>!- ; Set size and type of structure 
1393 4 28 CXBSC_HEADER+INIT_C_BUFSIZE,- 
08 A2 001B00C8 8F 1393 4 CXBSW_SIZE(R2) 
1A A2 0080 8F 80 ! H ? $9 MOV #WINIT_C_BUFSIZE,CXB$W_BCNT(R2) ; Set size of transfer 
! . ? 6¢ : Initialize QNA mode word 
13A0 4264 ASSUME NMASC_STATE_ON EQ 0 
13A0 4265 ASSUME NMASC_STATE_OFF EQ 1 
8 48 (4 B& 13A0 4 § CLRW CDB_W_MODE (R4) ; Init mode word 
05 0248 fs ce 13A4 4 BLBS COB_B PRM(R4) ,10$ ; Br if promiscuous state is OFF 
AB 1309 4 68 BISW  #CDB AOD M PROM,- : Else, enable promiscuous mode 
05 srtd ce E : AE t “ 10$ BLBS Toe Eee et os : Br if multicast state is OFF 
§i GB 1388 0599 BISW  #CDB_AOD_M_MULTI,- : Else, enable all MULTICASTS 


] 
| 
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= VAX/VMS QNA driver 


sets 


48 C4 BS 4 CoB. ¥ MODE (R4) : 
1A A2 8 28 4 As 83 j 208: B1SW MODE (R4) ,CXBSW_BCNT ( 
18 A A 80 B MOVW axes? T_DATA, CX XSW BOF F(R 
24 A 8 MOVL CXBSL-T_IRP(R ; 

: Initialize physical address 
50. 024 C4 «9 MOVAB CDB G_PHACR4) RO ; 
ay Ag 3 MOVAB CXBST-T_DATA¢{(R2),R1_ ; 
61 9 MOVB CHO) +5 UR) : 
08 Al 0 90 MOVB (RO) +,8(R1) : 
19 Al 9 90 MOVB (RO) +, 16¢R1) : 
18 Al 90 MOVB (R d+ ga (RI) : 
20 Al 0 90 MOVB (RO) +, g(R1) : 
8 Al 80 90 MOVB (RO)+,40(R1) ; 
; Initialize multicast addresses 
PuSHQ R2 ; 
52 0260 64 9A MOVZBL COB_B_MULTI(R4) ,R2 : 
38 = 13 BEQ 3 
52 Oc 91 CMPB 3 so#'12,, R2 ; 
06 1€ BGEQU : 
BUG_CHECK NOBUFPCKT, FATAL : 

53 06 9A 30$: MOVZBL #6,R3 


MOVAB 
BRB 


50 60262 C4—so9E CDB_G_MULTI(R4) ,RO 
0 50$ 


40S: SOBGTR 508 
ADDL fek=7 


os 6| ee 
39 = C0 
06 9A MOVZBL #6 


; Store multicast addresses 
50$: INCL 
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(R2) ; Set mode bits 
R2) ; Set offset to start of data 
Save IRP address in CXB 


; Point to Physical Address 
; Point to setup buffer (skip 1st col) 
; Stuff the physical address 


Save setup buffer, IRP address 
Get number of multicast addresses 
Br if none 

Is ge a 

Br if 

Else, re 


Only 6 slots left in first half of 
setup buffer 

Point to multicast address List 

Start with first half 


: Check if first half of setup buffer is full 


Br if first half of buffer still open 
Skip to second half of buffer 

Reset count for second half 

Leave last address as BROADCAST 


Skip to next column 
Store multicast address 


Br if more 


; Restore setup buffer, IRP address 
; Return success 

; Call back caller as co-routine 

; Insert request on xmit 
; Indicate that SETUP is 


; Startup the XMIT process 


ueue 
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d 
F 
1? : ; 8 * ~SBTTL FILLRCVLIST = FILL RECEIVE BUFFER LIST 
1? ; 2 1 : FILLRCVLIST = FILL RECEIVE BUFFER LIST 
14 : 4 : Functional description: 
143E 4335 : This routine fills the receive buffer list up to the quota allocated 
143E 4 § ; at unit initialization. It also gives any receive buffers allocated 
1? E : 3; to the receiver. 
14 : 4 33 : Inputs: 
143E 4 a : R2 = Buffer Address (ADDRCVLIST ONLY) | 
1? ; ? 3 3 R4 = CDB address 
14 : 4 44 : IPL = FIPL 
14 : 4 46 : Outputs: 
143E 4348 : RO-R2 is destroyed. 
143E 4349 ; ALL other registers are preserved. 
123e 38) | 
143E 4 3g 2 -ENABL LSB 
143E 4353 FILLRCVLIST:: ; Fill receive buffer List 
52 D4 1e75 4333 CLRL R2 3 No buffer here 
1440 4 2$ ADDRCVLIST:: 3; Add a buffer to the receive List 
38 BB 1440 435 PUSHR #*M<R3,R4,R5> ; Save registers 
55 0118 C46 DO 1442 4358 MOVL COB_L UcBd(R4) RS ; Get UCB address of unit 40 
01 €1 1447 4359 BB #COB_STS_V_RUN,- ; If BC device not running 
5D 024A C4 1449 4360 CDB_B_STS(R4) ,40$ | 
8113 cé 8] 1398 ? o1 10$: CMPW t+ OE A Se ; Can new block be allocated ? | 
58 1A 1454 4 63 BGTRU 358" ss ; If GTRU then no, stop loop 
51 D4 1456 4364 CLRL R1 ; Zero size 
Al 1458 4365 ADDW3 #CXBSC_HEADER+- ; Determine block size needed 
1459 4 96 CXBSC_TRAILER,- 3 
51 0110 C4 004¢ ef 1459 436 CDB_W-BSZ(R4) ,R1 : | 
2 05 1793 4368 TSTL pfs : Buffer already allocated? 
09 12 1462 4 4 BNEQ 208 ; Br if so 
00000000'GF 16 1464 4370 JSB Sa Uh gt OMOMPAGED 3; Allocate the memory 
1¢ 50 €9 146A 4371 BLBC RO, 350$ 3; If failure then done 
110 C46 A 1998 4372 208: SUBW CDB_W_BSZ(R4) - ; Subtract from quota 
112 C4 1471 437 CDB~W~QUOTA(R4) : | 
08 A2 1 88 1474 4374 VW R1 CxB$wW_SIZE(R2) ; Insert size 
1 1478 4375 25$:  MOVB S*#DYNSC~CXB,- : Insert type | 
OA A 147A 4 i: CXB$B_TYPE(R2) ; 
20 A2 0 90 147C 437 MOVB #XQ_FC_V_RECV,CXB$B_XQ_FUNC(R2) ; Set function request 
OOF4 C4 g OE 14 437 INSQUE (R2),COB-Q_RCVBUF(RS) ~ ; Insert block on List | 
D4 14 437 CLRL Re ; No more buffers given 
Cc 82617 1? ‘ 2 ? BRB 10$ 3; Continue | 
1 4 ? : Buffer allocation failure 
1489 4384 $0$:  SETBIT #XM$V_STS_BUFFAIL,- ; Set buffer alloc failure 
1489 4385 CDB_L~DEVBEPEND(R4) : 
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1 -S 
ECEIVE BUFFER LIST S73Ep 


50$ 
#XMSV_STS_BUFFAIL 
COB _L“DEVBEPEND (R ha} 
RSs 
CDB_B_AQUOTA(R4),=- 
CoB. B-MQUOTA(R4) 
CDB_B_AQUOTA(R4) 
25$ 


R2,R0 
G* COMSDRVDEALMEM 


START RECEIVE 
M<R3,R4,R5> 


“ 
on 


RSB 
-DSABL LSB 
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; And give any receives to device 
Clear buffer alloc failure 


Any buffer? 
Br if not 
Can we use the additional quota? 


Br if not 

Else, increment the additional 
Use buffer, but don't let 
QUOTA go negative 


; Get address of buffer 


Br 


3 none 
; Deallocate buffer 


Start the receives 
Restore registers 


sets 


01 
29 024A C4 


57 AAG 07 00 
53 O00F4 D4 
04 


83 a4 2 
56 19 AG 
19 Ad 
‘3 8F 
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iver 16*SEP=1984 00:37:44 VAX/VMS Macro V04-00 Page | 
START ANY RECEIVE REQUES a ee 4 $8 :30:8e DRIVER. SRCIXQDRIVER.MAR; 1 ’ 39) 
: «SBTTL START_RECEIVE = START ANY RECEIVE REQUESTS PENDING | 
START_RECEIVE - “TART ANY RECEIVE REQUESTS 
Function: nm: 
This rou en to start any receives that may be pending. This 
involves Als "ee receive buffer, mapping it, and loading it's 
address aru size i e device. 
Inputs: 


R4 = CDB address 
RS = UCB address of unit # 0 


IPL = FIPL 
Outputs: 


RO-R3 are destroyed. 
ALL other registers are preserved. 


3; Start receive operation 
3; Save 


incase 
Br if device is not running 


BBC” FCDB. STS. V_RUN 
CDB_B_STS(R4), 108 


: For u-VAX I, we will not use map registers. 
CPUDISP <<790,5$>,- 
<730.38>.- 
<730,5$>,- 
<UV1,40$>> ; For u-VAX I, use alternate path 
#0 EE SOT SRD LR ; Get a ty mapping slot 
3 ex 


EQL :; Br if none =- just 
REMQUE @CDB_Q_RCVBUF(R4) ,R3 ; Get a free buffer 
BVC 20$ ; B 


448 
£243 10$: POPQ R6 3; Restore R6, R7 


RSB 3; Return to caller 


13 
3; Mark slot in use and create buffer address/character count image 


:; in receive buffer and load UNIBUS adapter map registers. 


20$:  SETBIT R7,CDB_B_RCVMAP(R4) ; Mark slot in use 
MOVB R7,CXBSB-XQ_SLOT(R3) ; Save mapping slot index 
MOVL UCBSL_CRB(RS) .R2 : Get CRB address 


; Find next ring entry and insert data 


MOVZBL CDB_B_NEXTRCV(R4) ,R6 

INCB CDB7B”NEXTRCV(R4) 

BICB #*C2MAX_C_RCV-1>,- 
CDB_B_RERTRCV(RA) 


; Get next ring entry 
; Bump ring pointer 
; Modulo rcv ring size 


MOMMA LuUiP I09F — 
OVNI "WO MEO 


52 02 A? 
5 67 
00000000 ° GF 


8000 8F 

02 A6 

Q10E C4 

O00E8 D4 = 63 


03 
0085 


FFSE 


57 1A A4 05 4 
53 00F4 D4 
04 


6 
? 
7 
7 
7 
7? 
7? 
7? 
7 
7 
? 
7? 
? 
? 
| 
9 
9 
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16- 
ANY RECEIVE REQUES §: 
MOVB  R6,CXB$B_XxQ 
MOVL  CDB_L_RRINGO 
CLRW = RCVWTFLAG(R 
MOVW #RCU_STS ML 
cg 
PUSHQ = R 
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; Save ring entry number 
; Get virtual address of ring entry 
: Zero the FLAG word 


: Init the STATUS. word 


; The QNA's receive buffer size must be a 


; Save IRP, CDB address 


multiple of 2 


ASSUME pe al ete ER uae C -(NT SIZ &@ 1 > £20 


ADDWS = #XQ =f ~HEADER+XQ 
“BS7(RG) “RO” 


COB 
L 
MNEGW RO 


MOV R(R6 
MOVAL ih t Made 
INSV Pg 

EXTZV 

MOVW goRb W Fi ae 


mov a: »RCV—W-LENB(R6) 
ASSUME VE CSB B_NUMREG EQ vECSW LNAPREG® +2 


J 
POPQ 


INCB 
INSQUE 
BNEQ 08 

BSBW LOAD_PORT 
ENBINT 

BRW 5$ 


peeereererrrreeeeree 


; For u-VAX I, only. 


peeereererereererere 


ASSUME MAX_C_RCV 


FC 
BEQL 

REMQUE @CDB_Q_RCVBUF(R4).R3 
BVC 60$ 

POPQ =sR6 


key’ W_LEN(R6) 
MOVAB cxésT a" BATACR ),R1 


és 
tt 


LE 8 
ASSUME yy b “REWUVI LT MAX ’ 
F 0 ,PMAX_C_RCVUV1, tbe. “A SREVMAP (RA) oR7 : Get a tree mapping slot 
x 


ie 


NTSIZ,- ; Calculate message length 


Convert “byte count to WORD count 
Store length (2's complement) 
e cose eive buffer data addr 

e 

Get 5 sopeing info slot address 

he from map reg 
x. BA16-BA21 also 
Set BA16-BA21 & zero etiny bits 


; Set low byte not equal to high byte 


: Disable interrupts and queue request to 
DSBINT yReye DIPL(R5S) 
BISW 


Use direct data path for rcvs 


et number of map registers 
Set first map register number 
Load the map registers 
Restore IRP, CDB address 


input queue 


; Disable interrupts 


Set descriptor bits 

"VALID'' buffer address 
Talty one more receive in progress 
Insert receive buffer on 

input queue 
Br if not first entry on queue 
Request port and give request to QNA 
Re-enable interrupts 
Let's try it again 


none = just e 


: Get a free butfer 


r if buffer found 


; Restore R6, R7 


; Return to caller 


; Mark slot in use and create buffer address/character count image 
in receive buffer and load UNIBUS adapter map registers. 
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L 13 
16-S 
T ANY RECEIVE REQUES $23 


ETBIT R7,COB 


S 
MOVB 


MOVZBL 
INCB 


BICB 


B 
R7, CXBSB_ 


BX 
CDB_L_RRINGVA( 
RCV-W-FLAG(R6) 
#RCO_STS_M LAS 
RCV_@_STS(R6) 


; The QNA'S receive buffer size must be a 


RCVMAP(R4) 


XG_ SLOT (R3) 
; Find next ring entry and insert data 


CDOB_B_NEXTRCV(R4) ,R6 
+ swab Ary 


EP-1984 


7:44 VAX/VMS Mac 
EP-1984 


P 
0:54 DRIVER. SRCIXODRIVER.MAR; 1 ee By 


v04-00 


; Mark slot in use 
; Save mapping slot index 


; Get next ring entry 
; Bump ring pointer 
; Modulo rcv ring size 


; Save ring entry number 
; Get virtual address of ring entry 


Zero the FLAG w 


or 
; Init the STATUS word 


multiple of 2 


#XQ_CAHEADER®XO)CLCNTSIZ.= ; Calculate message length 


Convert byte count to WORD count 


; Store Length (2's complement) 


Get receive buffer physical address 
Set BA0Q0-BA1 


; Shift down high byte of address 
; Set BA16-BA21 & zero descriptor bits 
; Set low byte not equal to high byte 


input queue 


Disable interrupts 
Set descriptor its 

VALID" buffer address 
Tally one more receive in progress 
Insert receive buffer on 

input queue 
Br if not first entry on queue 
Request port and give request to QNA 
Re-enable interrupts 
Let's try it again 


assy <XQ_C_HEADER+XQ_C_CNTSIZ & 1 > £0 0 
CDB-W~BSZ(R4) 
ASHL #-1 R e 
MNEGW RO,RCV.W_LEN(R6) 
MOVL  (CDB_L_RCV_PA(R4)CR7],RO 
MOVW RO, RCO_W_ADDR(R6) 
ASHL  #-16,R0,R0 
MOVW  RO,RCV_W_ADDRHI (R6) 
MOVW #1, RCVWLENB(R6) 
; Disable interrupts and queue request to 
DSBINT UCB$B_DIPL(RS) : 
BISW Cv_B6SC_M_VALID,- 3 
XMT~W_ABDRHI (R65 : 
INCB cDB 6 _RCVCNT(R4) : 
INSQUE (R3),SCDB_Q_INPUT+4(R4) ; 
BNEQ 90$ $ 
BSBB _—s LOAD_PORT : 
ENBINT : 
BRW 40$ ; 


i 
— | 
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yO 008 LOAD_PORT = LOAD CSR'S WITH COMMAND REQU $7 3E b= 19 4 8:30:80 DRIVER.SRCIJXQDRIVER.MAR; 1 . ( al 
! 43 $286 as -SBTTL LOAD_PORT = LOAD CSR'S WITH COMMAND REQUEST | 
Fe 4966 ; LOAD_PORT = LOAD CSR'S WITH COMMAND REQUEST 
: 43 $258 : Functional description: 
ia 3 4870 ; This routine loads the CSR's and PCBB with a command to process. | 
: 
Hi 
15FE 497% : R4 = CDB address 
SFE 4575 RS = UCB address | 
BFE 437? ; IPL = DIPL | 
IEE 4379 ; Outputs: | 
igre 436i : R4,R5 are preserved. | 
15FE 1388 : RO-R3 may be destroyed. 
Hae | 
15FE 4386 LOAD_PORT: : ; Load port command 
52 24 A5 DO 15FE 458 MOVL UCBSL_CRB(R5) ,R2 ; Get CRB acdress 
1608 4588 ASSUME IDBSL_CSR 
52. 2C B2 00 1602 4589 MOVL @CRBSC_INTD+VECSL tee ~ : Get CSR address 
53 0064 D4 OF 1606 4590 REMQUE @CDB_Q-INPUT(R4),R ; Get next CXB 
01 1C 1608 4591 BVC 20$ :; Br if got one 
05 1900 1298 10$: RSB ; Return to caller | 
1B «OA “ 3} 135 $23¢ 20$: cree CESS TYPE CRS) AO THEC_CaB BS Ba a CXB? | 
19\3 £298 BUG_CHECK NOBUFPCKT,FATAL : Fatal error - what is it??? 
1913 £238 : Dispatch of CXB request | 
1618 4600 $0$: § $DISPATCH CXB$B_XQ_FUNC(R3),TYPE=B,- ; Dispatch on function request 
1618 4601 <- :functio action 
161 ret) <XQ_FC_V_XMIT 40$>.- ; XMIT requested 
1618 460 <XQ_FC_V_INIT 40$>,- ; INIT QNA requested 
1618 4604 <XQ"FC"V7STOP  40$>,- ; STOP QNA requested 
1618 4605 <XQ_FC_V_CHMODE 40$>,- ; Change mode requested 
161 ree <MQ_FC_V_RECV 60$>,- ; RECV requested 
i 
1628 2609 BUG_CHECK NOBUFPCKT,FATAL ; Fatal error - not a valid IRP 
is dei 
16 i 461¢ ; XMIT request 
160F 4614: If the QNA has invalidated the TRANSMIT RING, then we must reset the 
19 J $312 3 starting address of the ring List to point to the current entry. 
OE A2 10 8 162F 4819 40s: BITW #XQ_CSR_M_XMTINV,CSR(R2); Is the transmit ring still valid? 
1 23 8 Ga 18 3 2619 MOVIBL ex8sB XQ_RING(R3) RI : Else. ee on number 
51 68641 D0 1639 4620 MOVL  CDB_L-XRINGPA(R4)ER1],R1; Get the buffer mapping value 


XQDRIVER = VAX/VMS Q 
YOe- 000 LOAD_POR 


$1 tt A2 0 & 3 is 


ood wd Fay be 


020—E C4 «805 
05 


OE A2 8 
2 8 
5 23 AS OA 
51. 44 A441 
A2.. 51-0 
51 51 FO 8F 78 
a 51 90 
0100 046 463 =~ =«(OE 
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mS iver 1 mitts 00:37 744 VAX/VMS Macro v04-00 

LOAD Csr’ S WITH COMMAND REQU 5-SEP-1984 7:20:54 (CDRIVER. SREINODRIVER. MAR; 1 
#6 MOVW at gZnth ist (Re) : Sef address of transmit List entr 
4 ASHL : hift down high order address bit 
46 MOVB RI A : 
4604 50$:  INSQUE (R$),aCDB_O EnTPND +4 RAD :_ Insert CXxB on WAITING queue 
4625 if BITwW #xaQ ESR R_M_CAR,CSR(R2) ‘ds rit not, present? 
rf g: 33 BEQL f not, okay - else 
4 -& INCC COB_L_BIDCTR(R4) t blocks sent - initially def 
46 § bes: MOVE aX _TIM,CDB_8_TIM_ enaby : “otart xmit timer 
rh 3 RSB ; Return to caller 
rh 1 ; RECV request 
46 5 $ If the QNA has invalidated the RECEIVE RING, then we must reset the 
re ¢ ; starting address of the ring List to point to the current entry. 
46 6 é0s BITW  #XQ_CSR_M_RCVINV,CSR(R2); Is the receive ring still valid? 
46 BEQL 708" : Br if yes, all done 
4638 MOVZBL CXBS$B_XQ_RING(R3),R1 ; Else, get ring entr number 
4639 MOVL CDB_L gRRINGPACRADERTI, R1: Get the buffer mapping value 
4640 MOVW R1 RCULI s1¢n2d : Set address of receive list entry 
4641 ASHL #16 ; Shift down high order address bit 
464 VB RI Rewe gti (R2) 


MO 
4643 70$: INSQUE (R$) ),@CDB_Q _RCVPND+4(R4)- 3 Insert CXB on WAITING queue 
4644 RSB 3; Return to caller 


roe 18, 


Yy 
s 
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| 
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XQDRIVER - VAX/VMS QNA driver 16-SEP-1984 37:44 AX/VMS Macro V04-00 
yaa QNA_INTR = QNA INTERRUPT SERVICE ROUTINE = SEE =1382 EEE? DRIVER. SRCIXQDRIVER.MAR; 1 ( vO« 
167 reek : -SBTTL QNA_INTR = QNA INTERRUPT SERVICE ROUTINE 
187 4869 : QNALINTR = QNA INTERRUPT SERVICE ROUTINE | 
167 46 1: Functional description: 
1678 46 j : This routine services the interrupts generated by the QNA for completion | 
1678 4654 ; of requests. 
183 1832 ; Inputs: 
1698 4689 | | 
197 1828 : OO(SP) = ADDRESS OF UNIT IDB ADDRESS | 
167 4660 : RO,R1,R2,R3,R4,R5 ARE AT 04(SP) TO 1C(SP) | 
167 466¢ : | 
1678 4663; IPL = DIPL 
1678 4664 ; | 
1678 4665 ; Outputs: 
1678 4666 | 
1678 4667 ; THE INTERRUPT IS DISMISSED 
198 4668 ; 
1678 4669 ; IMPLICIT OUTPUTS: 
4 4670 ;: 
19 108) 3 A Fork process is started to check ring entries. 
1876 183 QNA_INTR:: ; DEQNA done interrupt 
54 9E& DO 1678 4674 MOVL a(SP)+,R4 ; Get IDB address 
55 18 AG DO 1678 4675 OVL IDB$SL_UCBLST(R4) ,R5 ; Get first UCB address 
167F 2008 ASSUME IDBSL » EQ 0 
52. 64 00 167F 467 MOVL (R4),R ; Get CSR address 
54 24 A5 00 1682 £678 MOVL UCBSL_CRB(RS) ,R4 : Get CRB address 
54 «10 AS 00 1686 467 MOVL CRBSL-AUXSTRUC(R4),R4 =: Get CDB address 
28 «#413 «168A 4680 BEQL INTEXIT ; Br if CDB not allocated 
00 1 168C 4681 BBC #COB_STS_V_INITED,- ; Br if NOT inited 
25 024A C4 JOBE 468¢ COBB STS(R4),INTEXIT | 
4 €0 1692 46 BBS #C0B sts V_ERR,= : Br if there was an error 
1F 024A C4 1694 4684 CDB_B_STS(R4),INTEXIT | 
53 OF A2 3C 1998 *6 5 MOVZWL CSRTR2Z),R3 3 Fetch the CSR contents | 
169C 46 3 : The interrupt bits can only be cleared by arcing one's into them, therefore | 
+43 1e58 ; we will write one’s into all bits which already have one's. | 
OE A 53 B9 169 £929 . MOV R3,CSR(R2) ; Release interrupt interlocks | 
53 8080 8F BS 16A0 469 BITW #Xx0_CSR_M_XMTINT!- ; Is this a valid interrupt? 
16A 1838 XQ_CSR_M_RCVINT,R3 3 
06 «13 19h 1237 BEQL 208 ; Br if no, indicate error | 
oar £232 : We will now check for any errors. | 
OA 53 02 €1 16A7 1699 Jos: BBC Oxo CSR _V NAH R3-508 ; Br if no errors | 
16AB £638 208: SETBIT #XQ-CSR_V_ERR,R 3; Set fatal error indicator 
16AF 469 SETBIT #CDB STS_0_ERR,- : Ignore futher interrupts 
ey 4 ? coB B_STS(R4) 5 
oc 10 1985 of 30$: BSBB SCHED-FORK 3; Schedule a fork process 
16B7 47 : INTEXIT: ; Exit interrupt 
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XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 00:37:44 VAX/VMS Macro v04-00 Page 1 
ORR Op QNA_INTR = QNA INTERRUPT SERVICE ROUTINE ee 1 EELEET DRIVER.S REIX XQDRIVER.MAR; 1 . (95) 
9 —E 7D 1687 4704 MOVQ (SP)+,R ; Restore Regs 
E 70 16BA 4705 MOVQ (SP)+,R 
4 —E 7D 16B8D 47 § ova (SP)+, 
02 16C0 47 REI ; Dismiss the interrupt 
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XQDRIVER = VAX/VMS QNA drive =SEP-1984 7:44 af: Re cro V04-00 Page 
FON n OUD SCHED_FORK = SCH HEDULE THE FORK PROCESS ~3Eb= 1 986 t 88: 35; 754 (CDRIVER.SR Cox XQDRIVER.MAR; 1 ° 
C 709 ~SBTTL SCHED _FORK = SCHEDULE THE FORK PROCESS 
: oy cae ~SBTTL SCHED-FORKC = SCHEDULE THE FORK PROCESS WITH R3 CLEAR 
C og: ; SCHED_FORK = Schedule the fork proce 
: at ; SCHED_FORKC = Schedule the fork process with R3 clear 
: O12 3 Functional description: 
C oS 3 This routine is called to schedule the error and I/0 completion fork process. 
C oie 3 The Last controller CSR values are saved for examination. f the 
C 71 fork process is already pending, only the last CSR values are saved if there 
: f 9: was an error. 
: f gi Inputs: 
C 724 R3 = Last CSR value 
C 725 R4 = CDB address 
C 7 § 
7 
728 
729 
730 
FD 
439 
tee 3 
735 
7 


° 
° 
Py 
: 
; 
Py 
‘ 
: 
: 
a 
; 
° 
; 
; 
. 
: 
PY 
‘ 
: 
: 
; 
Py 
: 
Py 
° 
‘ 
; 
‘ 
Py 
° 
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PARA APALAAAAAAAA AA AAA A AAA AAA AA AA AA AAAAAAAAA AAA 
DONNA FNM OONN eso 
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: IPL = DIPL or higher 
: ; Outputs: 
C R3 is cleared if SCHED_FORKC entry. 
C R4 is destroyed. 
: RS = COB address 
: 32 If XQ_CSR_V_ERR is set in CSR, then the following is returned: 
C 737 CDB_L_CSR(R4) = new CSR value 
C rae 
C 739 ;3-- 
C 740 
C 741 SCHED_FORKC:: : Schedule fork process, clr R3 
53 D4 C rg CLRL R3 ; + device error 
C 745 SCHED_FORK:: Schedule fork proc 
OC 024A C4 02. =€2 C 744 BBSS #CDB_STS V-EORK PEND, CoB. _B_STS(R4),10$ ; Br 7° fork pending 
C 745 ASSUME CDB_C_FQFL 
54 p00 C rs MOVL ; Get CDB fork block address 
EO'AF OF 16CC 474 PUSHAB Be FaRK PROC : Else, set address of fork process 
00000000'GF 17 ‘ ree JMP G*EXESFORK : Schedule the fork and return 
04 53 3 €1 D 750 10$: BBC #xQ_CSR_V_ERR,R3,20$ ; Br if not error 
10 Ad DO 1609 4751 MOVL  R3,CDB_C_CSR(R4) : Save last CSR value 
05 D 752 208: RSB ; Return to caller 


na 
so 
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XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 37:44 VAX/VMS Macro V04-00 Page 104 | 
¥0e~ 000 FORK PROC = Error and completion fork pr at 7 $8 :30;$4 DRIVER. SAE IRODRE VER. MARS 1 (41) | 
190E rt ¢ p -SBTTL FORK PROC = Error and completion fork process handling | 
180e of § ; FORK_PROC = Error and completion fork processing 
1908 : 8 ; Functional description: | 
16DE 4760 ; This routine is called as a fork process to handle errors and all completions 
16DE 4761 ; pending. 
16DE 1788 3 
16DE 4765 ; Inputs: 
16DE 4764 ; 
16DE 4765 ; R3 = Last CSR value 
16DE £798 ; R4 = COB address 
16DE 4767 ; R5 = CDB address 
16DE 4768 ; 
16DE 4769 ; IPL = FIPL 
16DE 4770 ; 
16DE 4771 ; Outputs: 
16DE $ie6 ; 
16DE 4773; RO-R5 are destroyed. 
16DE 4774; 
16DE 4775 ;-- 
0868" 16DE 4776 . WOR TIMEOUT-. ; Offset to timeout routine 
16€0 4777 FORK_PROC:: :_Error/completion fork process 
16E0 4778 CLRBIT #COB_STS_V_FORK_PEND,CDB_B_STS(R4) ; Clear fork process flag 
2053 OF €1 16€6 4779 BBC Q Csr_V_ERR,R3,10 ; 6r not an error 
16EA 4780 SETBIT #XMSV_ERR-FATAL,CDB_L_DEVDEPEND(R4) ; Indicate fatal error 
0117 C4 53 «90 «(16FO 4781 MOVB R3,CDB_L_BDEVDEPEND+3(R4) ; Save low byte of CSR | 
35-0118 Ch DO T6E> 4786 MOVL  CDB L_OCBO(R4) ,R5 ;'Get UCB #0 address 
0082 (5 B86 16FA 47 INCW UCBSW-ERRCNT(RS) ; Bump error counter 
0805 31 16FE 4784 BRW — SHUTDOWN_ONA : Shutdown the QNA device | 
1701 4785 
1701 4786 3$: : 
ret $7 i ; Process receive errors 
0293 30 1701 4789 6sBw RCV_ERROR ; Process receive error 
oosc = «51 FA $239 BRW 25$ ; Abort messages | 
015A i331 1707 1238 7$: BRW 60$ ; Complete transmits | 
3 | 
170k $238 3; Complete any TRANSMITS or RECEIVES | 
i 4796 10$: PUSHQ 6 ; Save R6, R7 | 
0523 30 170d $728 15$: BSBW ASSER_PRTS ; Assemble receive packets 
F450 =€9 1719 479 BLBC RO,7$ ; Br on error or none 
1713 4800 INCC CDB_L_DBRCTR(R4) ; Count blocks received 
50 1AA2 3C 1710 4 83 MOVZWL CXBSW-BCNT(R2),RO ; Get byte count 
1721 4 § CNTR RO,COB_L_BRCCTR(R4) -L 3; Count bytes received 
16 38 A2 £9 1720 4 BLBC =: CXBS$G_R DEST (Re) 178 : Br if not multicast | 
1731 4804 INCC CDOB_L-MBLCTR(R4) ; Count multicast blocks received 
17 8 4805 CNTR RO,COB_L_MBYCTR(R4),L ; Count multicast bytes received 
OF £0 1747 4 6 17$: BBS wrev_STS"V_ERR,- : Br if FATAL receive error | 
BS 14 A 1749 4 CXBSW_R7STS(RO) ,3$ ; 
OD €1 174C 4808 BBC #RCV_STS-V ESETUP - ; Br if NOT an ESETUP receive 
06 14 Ag 1746 4809 CXBSW_RTSTS(R2),008 =; | 
0 E4 1751 4810 BBSC #CDB_STS-V_SETUP,- ; Br if SETUP in progress and clear it | 
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KQDRIVER VMS driver 16-SEP-1984 00:37:44 VAX/VMS Macro v04-00 Page 105 | 
Onn 008 PROC rror and completion fork pr toe Yi 7:20:54 LORIVER. SREIXGDRIVER.MAR: 1 . (41) | 
C 024A C4 17 4811 COB_B_STS(R4) ,25$ : 
1 446 A2 i ? 6 208: MOVZWL CKBSOR PIYPECAS) SRI ; Pick up protocol type from buffer 
175B 4814 IF DF POINT 
0660 8F 51 B11 175B 4815 CMPW R1,#XQ_C_STPRO :% Is this the startup protocol? 
0 3 1760 4 16 BNEQ 3% Br if not 
OE9 30 1762 481 BSBW FIND POINT_UCB 3% Find the point to point user! 
14 5 E9 1765 4818 BLBC RO, 228 3% Br if failure, assume regular user 
29 «11 «+1768 4819 BRB 25$ 7% Else done with MSG block 
ie oe 
0260 8F 51 Bi 176A 4 § 21$ CMPW R1,#NI_CTR_PROTYP i; Is this the Remote Console protocol? 
0B 12 176F 4 BNEQ 22$ : Br if not 
09 91 #1771 4824 CMPB #NI_CTR_READ,=- ; Is this a read counters request? 
46 Ae 1773 4825 XBST_R-USERDAT(R2) : 
0 13 1775 4826 BNEQ 2$ ; Br if not 
0615 30 1777 4827 BSBw MOP_CTR_REQUEST ; Else, process the request for counters 
91 11 #I77A 4 8 BRB $ 
1547 30 177C 4 22$: BSBW MATCH_PROTYP ; Try to match protocol type 
1F 50 €8 177F 4830 BLBS R ; Br if success 
55 0214 C4 00 1786 4831 23$: MOVL CDB_L_PRMUSER(R4) ,R5 ; Try to get the PROMISCUOUS user 
60 12 178 $838 BNEQ 4$ ; Br if one found 
178 rt: INCC CDB_W_UFDCTR(R4) ,W ; Else, no such protocol type 
10 A2 OD «1793 «4834 258: PUSHL CXBSL-LINK(R2) ; Save next in chain ; 
FCA7 30 1796 4835 BSBW ADDRCOULIST ; Add buffer to receive list 
2 8EDO tA 4 4836 POPL R 3; Restore next buffer 
€ 12 179C 4837 BNEQ 25$ 3 Loop more 
FF6C 83: 5331 io rt ft: BRwW 15$ 3; Look for next completed buffer 
17A1 rt Pk ; If there is a promiscuous user, then copy the packet for the promiscuous 
17A1 4841 ; user. There is a chance that the data received is not for the protocol 
17A1 $8t8 3; type user just found, we will have to re-verify that the destination 
17A1 48435 ; address is for our physical address. This is because if we are running 
17A1 4844 ; promiscuous mode, then we will receive all packets, including those not 
{fat thee : intended for the protocol user. 
17A1 tbe 27$: ASSUME NMASC_STATE_ON EQ 0 
17A1 4 rn ASSUME NMASC_STATE_OFF EQ 1 
23 0248 C4 EB 17A1 484 BLBS CDB_B_PRM(R&Z) , 32$ :; Br if hardware is NOT in promiscuous mode 
10 38 A2 EB 17A6 4850 BLBS CXBSG-R_DEST(R2) , 308 ; Br if multicast address, this 
17AA $82) : will be checked Later. 
HA A2 D1 17AA 4 26 CMPL CXBSG_R_DEST(R2),- 3; Is this packet for this protocol 
025A C4 17AD 485 DB_G_PAYADR(R4) > _user? 
D 12 1780 4 23 BNEQ $ ; Br if not, don't copy packet 
Hs A B1 17B2 4855 CMPW CXBSG_R_DEST+4(R2),- ; Are we sure? 
025E C4 1785 4 36 CDB_G_PRYADR+4(R4) : 
c8 «12 1788 2 : BNEQ ; Br if no, dont’t copy packet 
178A ? 33 3 Copy the packet for the promiscuous user 
55 DD 17BA 4861 30S: PUSHL R5 ; Save user's UCB address 
55 0214 C4 OD 17BC 4 $6 MOVL DB_L_PRMUSER(R4) ,R5 ; Get PROMISCUOUS user's UCB address 
3 15 17C1 486 BEQL 1 ; Br if none 
02 2 30 17C3 4864 BSBW COPY ACY : Give buffer to promiscous user 
8ED 1768 ? 65 31$: POPL 8 3; Restore user's UCB address 
1709 4 88 3; If multicast address is the destination, then make sure that multicast 
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XQDRIVER = VAX/VMS QNA driver “SEP-1984 00:37:44 VAX/VMS Macro v04-00 Page 106 
yO 008 FORK PROC = Error and completion fork pr et 7 $3 :30;44 LORIVE «SRC JXQDRIVER.MAR; 1 - (41) 
(3 ¢ ; address is in multicast address list for this unit. 
1C 38 A2 § C9 4 $28: BLBC CXB$G_R_DEST(R2) ,34$ ; Br if physical address 
146A CD 4 BSBW MATCH _MOLTI ; Try to match multicast address 
1650 € 3 4 BLBS RO, 348 : Br if success 
D3 4873 33$:  INCC UCBSW_XQ_MNECTR(RS),W ; Else, multicast not enabled 
bp 4 INCC $PG_W_UFOCTRIRG) ; Also added in unrecognized frame dest 
AA 11 2 BRB 5 ; Release buffer 
: If the user did not request data chaining, then check to make sure he gets 
3; no chained buffers... may be user of Internal IRPs! 
10 a2 DS $4$:  -TSTL CXBSL_LINK (R2) ; Is this a chained message? 
0 13 BEQL 6$ ; Br if not 


ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC_STATE OFF EQ 1 
BLBS UCBSB_XQ_DCA(RS) ,45$ ; Br if chaining not allowed 


: If there is a pending receive 1/0 request. complete it. 
; Otherwise, queue the buffer and, if enabled, deliver attention AST. 


56s: MOVZWL UCBSW_DEVBUFSIZ(R5),RO ; Get size of user's max buffer 


38& the following code could cause problems for an altstart user, 
388 if the altstart user happens to receive a buffer which is 1 or 2 
:88 bytes longer than they are capable of handling. Only if the 

388 protocol is not ‘‘padded’’, because the size check allows for 

tt bytes of count to be subtracted from the message size. 
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8 
83 : 
9 : Check the size of the received buffer against what the user protocol can 
32 3; handle. 
02 A3 901 ° SUBW3 #XQ_C_CNTSIZ,- ; Get the size of the receive buffer 
51 1A A2 90 CXBSW-BCNT(R2),R1 ; _minus the count wor 
50 51 861 490 CMPW R1,R0 ; Is the received size larger than 
4904 3; _what the user can handle? 
3C.)CtC«‘*‘7AA 4905 BGTRU 45$ : Br if yes, error 
018D C5 0 4906 TSTL CBSL_XQ_FFICRS) ; FAST Interface supported? 
06 = «1 4907 BEQL 3; Br if not, standard interface 
02C 3 $208 BSBW fMISH RCV FFI ; Else, complete FAST receive 
FFO 1 rhs #4 BRW 15$ ; Look for more completions 
51 OOA8 CS’ 9E 4911 378: MOVAB UCBS$Q_XQ_RCVREQ(R5),R1 ; Assume that we are running in 
2818 3 _exclusive mode 
03 €1 491 BBC #UCBSV_XQ_ SHARE ,- ; Br if UCB is NOT in SHARED mode 
09 68 A 4gi4 UCBSW7DEVSTS(R5) 388 —; 
£313 : If running in SHARED mode, then we must use the Listheads in the SHR 
4917 ; data structure. We will use the source address from the received message 
$318 3; to match against the SHR structure destination address. 
O1F 39 4920 * BSBW MATCH_SRC ; Check for a match on source address 
8 1 2 1 BNEQ 33$ ; Br if no shared user found 
3 : SHARED user found, use Listheads in SHR data structure. 
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2} 0 Al MOVAB_ SHR ee ; Get address of waiting IRPs 
B1 a(RT) IR TRP 


7 | 
1) | 


38$: REMQUE ; Remove waiting 
98 BVS Ng ; Br if none - queue for Later 
0oc8 ¢5 SUBW RO,UCBSW_XQ_QUOTA(R5) ; Else, lessen quota so it can be 
3-.increased on completion 
02€5 BSBW f{QTSH_ACV 10 3; And finish the 1/0 
FEDC : BRW 15$ 3 Look for next completion 
: Check buffer quota and queue if quota okay. 
00c8 C5 Decrement the quota 


50 40s: sul i a Decre aye 
r 
0ucs C5 if we can bdbuTTfer reques 


R yon QUOTA(R5) ; Replace quota 
45$: INCC ucé W_XQ°UBOCTR(R5),W ; Else, no buffer available 
INCC $08 _WUBOCTRIRS) 3 «don't forget CDB counter 
5$ ; Return buffer 


508: ASSUME UCB$Q_xXQ_ RCVREQ EQ UCB$Q_XQ_RCVMSG+8 
ASSURE SHR O_RCOREG EQ SHR_Q_RCUMSG+8 


FF SF 


51 04 3 Soqhup to backward Link pointer 
3 of the message queue 
00 B81 62 INSQUE (R2),a(R1) ; Queue received msg for later 
FBEO BSBW Ss FILLACVLIST ; Try to fill the receive List 
1430 BSBW POKE_USER 3; Deliver ASTs 
BRW 15$ ; Look for more completions 
; NOW = scan the xmit ring entries 
O10F C4 &0$:  TSTB CDB_B_XMTCNT(R4) ; Any xmits in progress? 
0 BNEQ 0$ ; Br if yes - look for any completed 
0126 65$: BRW 190$ 3; Else, all done 
56 0100 C4 70$: MOVZBL CDB_B_LASTXMT(R4) ,R6 ; Get Last ring entry completed 
56 009C C446 MOVL  CDB-L-XRINGVA(R4)(R6],R6; Get address of last ring entry 
BBC #xmT_ST ; Br if done 


_5TS_V_LAST,= 
XMT“W_STSTR6) ,75$ 
BBS #XMT-STS_V_ERR,= 
XMT"W_STSTR6) ,65$ 
758: Gt XBT G_TOR(RG) 
RERQUE Ponce eae 


; Br if not done 

; leave 

; Are we really done? 

; Br not! 

3 Get next XMIT CXB 

:; Br if none there (yet) 
; Br if more entries on queue 


8 CLRB COB_B_TIM_XMT(R4) ; Stop the xmit timer 
77$ DECe CDB-B_XMTCNT(R4) One less transmit pending 
INCB CDB_B_LASTXMT(R4) ; Bump ring pointer 
BICB #*C2MAX_C_XMT-1>,- Modulo receive ring entry size 
CDB_B_LASTXMT (R45 pial 


; Transmit complete 


CLRBIT XMT_DSC_V_VALID,=- 3 Indicate that buffer is not valid 
TW ADBRHI (RO) : 
MOVB XMT_@ _FLAG+1(R6),- 3 Save diagnostic return info 
CDOB_B_DIAG1(R4) 3 
MOVW xmt_@ S19 (9) - ; Save diagnostic return info 
CDB_@_DIAG2(24) : 


a 


55 24 AB 
9% 55 00 
5 ICA 
52. 22 AS 
51 24 AS 


34 Al = 38 A442 
52 
0D 

38 A442) O01 
03 


aS. 
50.01 
0c 
42 02 A6 
05 08 A6 =OOE 
0096 
3 
04 
51 08 A6 04 
1A 
51 
oc 
OA 


53° 32 A 


ie =] 
> 
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OONAUIE Wire 


wowowowowowowowowowoono m 


OOO Ococ0 cece cD CD CD CD 


Dele el le el ek ak ek ak el el ak 


M23 3 SS SISOS OOOO OSOO 
VEWNRO 


NAMES WN @§ OOD NAVE WN 9 ODNAUES WN" OOODNAULSWN OO 


BBs Ge Ge 
a 
oOo 
Aa 


—_ —_ 


SS 


DVPVPV IVD DPV LVI UDPVPELVDVLVLIVSLVLUSUSVSUSUSUSUSUSUSUSTSISIST SISSIES SP Se 


a a a ed ad ed = ts So dd — - ) — — — — 3 a 2 2 8 2 a 1 2 1 
So 
ia 
oe oe 


WOOO OOOWO 0000000000000 0000 00000000000 00 00 00 09 09 00 00 00 C0 CO 


on 
OGOOOOCOCOOSOOCOCOCOOCOOOCOCOOOOOOOSOCOSCOOOOOOOOOO./X 


AAAAWIAIH EA. AIPIPOPOPIMONOPININY 


oo 


om 
nn 
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b 
E 
MOVL = CXB$L_T “uC (R3 
ASSUME cxBs “T-ucB CE 
BBSC =: #0, R578 

MOVL IRPSL_UCB(RS) ,RS 


MOVZBL CXB$B_XQ_SLOT(R3),R 
CLRBIT R2,COB_B~ SOT APeRAN 


CPUDISP “1803089 - 


. 
oO 


3 9 $>‘- 
<uvi,1 0$>> 


MOVL = UCBSL_CRB(RS) 

ASSUME VECSB-NUMREG a VECSW_MA 
ASSUME VECSB~ “DATAPATH EQ y tsp 
MO CDB_L~XMTMAP(R4) CR2 
~GROSC INTD+VECSW "MAPREG 


95$ 
MNEGL #1,CDB_L_XMTMAP(R4)CR2] ; 
100$ 


ASSUME VEC$B_DATAPATH FO VECSwW 
CLRB CDB_L-XMTMAP+3(R 

MOVZWL CXBSW_ “BCNT(R3), RO. 
MOVL RO,R 


; Perform accounting for the QNA 


coe ot DBSCTR(R4) 
CNTR a 1 tbe - BSNCTR(R4),L 


MOVW eng ées. NORMAL RO 

BBSC #XMT_DSC 

XMT a ADBRAT IRD | 120$ 
BBC ant STS_V_ERR,XMT_W_STS 
BSBW T_ERROR 

BRB 1508 


yest. xQ SBYCTR(RS) L 
INCC Bcé L XQ-SBECTRRS 

EXTZV #XMT_STS-V_COL, 

amt: STS” -- “COLL XMT_ w_STS 


BEQL 12 

DECB Ri 

BEQL 115$ 

INCC COB_L_BSMCTR(R4) 

BRB 12 

INCC COB_L_BSICTR(R4) 

BLBS CXBSL_T_IRP(R3), + 1308 
VL CXBSL-T"IRP(R5),R 


: hey Macro V04-00 
t (presumed) UCB address 


se, get real UCB address 


t mapping slot number used 
ear in use flag 


; Skip map registers if u-VAX I 
Ps address 
bree 


NURREGS1 

Setup map register data 
(R1) ; and data path number 
Was it the pre-allocated one? 


r if yes - clear data path number 
Indicate map register not allocated 


; Release the map registers 
; Complete the request 


_MAPREG+3 

; Clear data path number used 
3; Get byte count of message 

; Copy length for accounting 


; Count blocks sent 

; Count bytes sent 

3 Move to high word 

3; Set coapie ion status 
: Br if SETUP operation 


ir6),110$ ; Br if not a FATAL error 


: Process XMIT error 
; Skip the accounting 


; Perfore accounting on a per protocol type basis and on unit. 


3 Bump the bytes sent counter 
|-y the blocks sent counter 
3; Get number of collisions 
(RO), R1 
; Br if none 
More than net 
Br if only 


Cont 
| toe "Blocks sent with 1 error 


; BR if FAST interface CxB 
; Else, get IRP address 


DRIVER. SRCIJXQDRIVER.MAR; 1 


x up address &@ BR if UCB address 


Count blocks” sent with multiple errors 


Oo 
“w 


sus id 
30 DD 

50 = 0094 S? 0 

rece | 2e00 

oe 

ae 

FED1 1 


ok td CO 
LWW oe ot et et et et et ee ee 
NM—CWOONOUSWNH—O” 32a 


FO OWwM 
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or and completion fork pr 


L_XQ_SETUP(R3) ,RO 
MSDRVDEALMEM 


SH_XMT_FFI 
wALT_START 
0$ 


0 V04-00 


44 YAX/VMS Macr - 
4 (CORIVER.SRCIJXQDRIVER.MAR; 1 


5 
a 


; Save status return 

; Is there a SETUP mode buffer 
; Br if none 

; Deallocate the buffer 

; Restore status return 

; Finish the 1/0 request 

; Continue in common code 

; Else, complete FFI XMIT 

; Start up any other transmits 
; Look for next completion 


; Restore R6, R7 


j 
-_| 
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z2™ 
DaD< 
oz 
maw 
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| 
1997 54 -SBTTL RCV_ERROR = Process receive errors 
133e 2? -SBTTL XMT_LERROR = Process transmit errors 
344 
133! 33 : RCV_ERROR = Process receive errors | 
1997 33 ; Functional description: | 
1338 oet : This routine adjusts all appropriate counters and checks all errors. 
1997 68 ; Inputs: | 
1997 64 ; R2 = CXB address 
1337 aes 3 R4 = CDB address 
1997 069 ; Outputs: 
1997 2ng8 3 none. 
1997 36? 3 
13 $878 
1997 076 RCV_ERROR: 
1997 507 INCC CDB_W_RFLCTR(R4) ,W ; Count receive failures 
01 €1 19A1 5074 BBC #RCU_STS_V_CRCERR,- :; Br if not a CRC error 
06 14 A2 19A3 5075 CXBSQ_R_STS(R2) , 208 ; 
19A6 5076 SETBIT #0,CDOB_O_RFLMAP(R4) ; Indicate CRC error 
02 €1 19AC 5077 208: BBC #RCV_STS-V_FRAME,- ; Br if not a framing error 
06 14 A2 19AE 5078 CXBSO_R_STS(R2) ,408 ; 
1981 5079 SETBIT #1,CDB_Q_RFLMAP(R4) 3; Indicate FRAME error 
16 08 €1 1387 oper 40$: BBC aRCVSTSEVRUNT. = : Br if not a RUNT packet 
- 19BC 2086 SETBIT #2,CDB_Q_RFLMAP(R4) : Indicate FRAME error 
05 19C2 5083 908: RSB 
19¢ ange 
19¢ ne 5+ 
13 S087 ; XMT_ERROR - Process transmit errors 
19C3 3089 ; Functional description: 
13 203) ; This routine adjusts all appropriate counters and checks all errors. 
193 3098 : Inputs: 
19C3 5094 ; R4 = CDB address 
13¢ 303 : R6 = Transmit ring entry address | 
19¢ 97 ; Outputs: 
19C i 3 veperRO = error code | 
19¢ 99 ; 
te | 
RROR: 
19¢ i 5 —— once COB_W_SFLCTR(R4) ,W ; Count send failures | 
50 2004 8F BO 19CD 5104 MOVY  #SSS_COMMHARD,RO ; Assume No Carrier failure 
09 ET 1902 3108 BBC an or SeV ABORT : Br if NOT 16 retries failed | 
50 “Be ar B0 19? 1 S Vu asst BEVREQERR,RO ; Else, DEVREQERR error 
gc a1 18S HBR zon, BLE RRAMENRAEFLRMO SEAS. ar carrer 
op og ns © 19s S110 XMT_O STS(RG) -cOS 7 | 
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XQDRIV = VAX/VMS QNA drive Ig- SEP= 71984 00: 37: :44 VAX/VMS Macro V04-00 
v04 XMT_ERROR = Pr recess trenseit errors =SEP=1984 0:54 CDRIVER.SRCIXODRIVER.MAR; 1 
50 2046C 8F BO 1967 511 MOVW #SS$_DISCONNECT,RO : Else DISCONNECT error 
19EC 511 SETBIT #1,COB_W_SFLMAP(R4) : Set bit 
08 E1 19F 113 40$: BBC #XxAT_STS"V PAIL - : Br if NOT Pcollision check failure 
oF 98 A 19F4 5114 XMT_@ STS(R6) ,60$ 
OSC 8F BO 19F7 5115 MOVW #SSS_BATACHECK,RO : Else, DATACHECK error 
19FC 116 INCC  CDB_@ CDCCTR(RS) Ww : Count separate counter 
0B €1 #JA : 117 60$: BBC aunt STS_V_NOCAR,- 3; Br if NOT Carrier failure 
06 08 A6 1A 118 STS(R6) , 90$ : 
1A 11 SeTBIT Hy ope “W_SFLMAP(R4) : Set bitmap 
0S 1A11 5120 908: 


] 
M14 | 
XQDRIVER Q river -SEP-1984 7:44 VAX/VMS Macro v04-00 Page 11 
yah SUBROUTINES TO FIND SHR MATCH ON SOURCE a et 4 89: 35; 754 (CDORIVER.SRCIJXQDRIVER.MAR;1 . 14) | 
1A) } ¢. . -SBTTL SUBROUTINES TO FIND SHR MATCH ON SOURCE ADDRESS | 
1a 4: Functional description: | 
1A ! § : Subroutine to find SHR data structure for user 
Ale 9128 : Inputs: | 
1A1 1 $ Re = Receive CXB address 
1A 1 , 3 R5 = UCB address | 
1Al2 51 : : Outputs: 
1A1 1 2 Ri = Address if SHR data structure if match 
1A1 134 ; ALL other registers preserved. 
1A1 135 ; Z-Bit set then match. 
1A1 1 § 3 Z-Bit clear then no match. 
1ais 8138 | 
1A1 13 MATCH_SRC: Try to find shared user 
0S 68 1Alg 2139 PUSHR #*M<RO,R2> Save registers | 
sate 2166 : Try to find match among Limited shared users of protocol type | 
50 0098 CS 9E 1A14 5144 ° MOVAB UCB$Q_XQ_SHARE(R5),RO ; Save address of Listhead 
51 50 oD0O 1A19 5145 MOVL R 3; Copy Listhead address 
1A1C 3146 ASSUME SHR_L_QFL EQ 0 
51 61 DO AIC 5147 208: MOVL (R1T,R1 : Get next in List 
50 51 DI IAIF 5148 CMPL =o, RO ; Back to start of List? 
96 13° 1A22 5149 BEQL 0 ; Br if yes - no source match 
1 10 1Ag? 5150 BSBB SHG CK_SRC : Check Ld notch 
F4 12 #1A26 = 5151 BNEQ 0$ ; Br 
ae 1A3h 2126 BRB 50$ 3 Return. a success (Z-bit is set) 
A - 2128 3 ; No match on Limited users - try to use default user 
51 00C4 CS DO 1A2A 3156 $0s: MOVL UCBSL_XQ_DEFUSR(R5),R1 ; Get address of default user 
02 13 IA2F 5157 BEQL 40$ ; Br if no default user 
50 D4 1A31 5158 CLRL RO ; Return success 
50 50 00 1A33 5159 40S: MOVL RO,RO 3; Return success/failure indicator 
05 BA 1As6 5160 50$: POPR #*M<RO,R2> ; Restore registers, don't reset 2-BIT | 
05 1A38 5161 RSB 
1S HS | 
1A > 198 > Functional description: | 
= i 186 : Subroutine to check if source address in message matches SHR address 
1A39 168 : Inputs: 
1A39 18 : R1 = Address of SHR 
1A39 109 3 R2 = Address of MSG buffer 
i, 3 172 : Outputs 
1A39 51735; P-Bit set then match. | 
1A39 5174; 7-Bit clear then no match. 
1a39, 8198 | 
1A39 99 CHECK_SRC: eck _for match with SHR data base 
12 Al 3E A2 D1 1439 5178 CMPL CXBS$G_R_SRC(R2),SHR_G_ pegtin ; Source address match? 
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1 1A3 BNEQ 10$ ; Br if no - try for next 
$e 8 ot CMPW — R_SRC+4 i 3; Really match? 
16 A 1A4 R_G_BEST+4 $ 


] 

| 

| 

0S 1A4 2 108: RSB Return to caller | 
| 


<_=ut 
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1aeg 1 pea -SBTTL COPY_RCV = Copy a receive buffer for the PROMISCUOUS user 
; COPY_RCV = Copy a receive buffer for the PROMISCUOUS user 


=" 
> 

= 
wns 


: Functional description: 


: This routine allocates a receive buffer in which to copy the a receive 
; buffer for the PROMISCUOUS user. 


Inputs: 


= Receive CXB address 
R4 s COB address 


OOOO0O000000 00 O00 00000000 
WO OONOUS WN OOO~nem 


1 
1A 1 
1A4 1 
1A4 1 
1A4 1 
1A4 1 
1A46 51 
1A46 5192; 
1A46 5193; 
1A46 51 3 
1ace 8196 
1A46 51 : RS = UCB address of PROMISCUOUS user 
1A02 } 3 R6 = Address of receive ring entry 
ve : IPL = FIPL 
ince 8 3; Outputs: 
1A46 é 04; RO,R1,R3 are destroyed. 
1nee 2 82 3 ALC other registers are preserved. 
1A46 5 09 topy_ rcv: ; Copy the xmit buffer to rcv buffer 
52 DD 1A46 5208 PUSHL R2 3; Save address of ortetnet buffer 
1c A2 01 =B1O1A48 2 09 CMPW #1,CXBSW_R_NCHAIN(R2) ; Is there more than 1 in chain? 
78 12 «1A4C 10 BNEQ ; Br if yes - we can only handle 1 
51 AA2 3C AGE 5211 MOVZWL CXB$W_BCNT(R2),R1 ; Get size of buffer 
51 00000048 8F CO 1A5 ; 1 ADDL  #CXB$C_HEADER,R1 : Compute size of needed buffer 
00000009" gf 16 1A5 1 JSB G EXE SALONONPAGED 3; Allocate a receive buffer 
64 50 €9 ASF 5214 BLBC RO,80$ ; Br if failure 
53 6€ 00  & 5215 MOVL (SP) ,R3 ; Get address of original buffer 
Hd BB 1A6 : 16 PUSHR #M<R1_R2 R4,R5> ; Save registers 
62 63 51 28 1A67 5217 MOVC3 1, (R35, (R2) : Copy everything to new buffer 
36 BA 1A6B 5218 POPR #°M<R1,R2,R4,R5> : Save registers 
08 a2 51—s«BO 1Agp 5 19 MOVW R1,CXB$W_$1ZE(R2) : Reset size field 
1A71 1; If there is a pending receive 1/0 request, complete it. 
4 § 3; Otherwise, queue the buffer and, if enabled, deliver attention AST. 
51 42 A5 3C 1A71 4 MOVZWL UCBS$W_DEVBUFSIZ(R5),R1_; Get the user's buffer size 
53. 00A8 D5 OF 1A75 5 REMQUE @UCBSO_XQ_RCVREQ(R5S,R3 : Remove waiting IRP 
1D 1D A7A § BVS ; Br if none - queue for Later 
ooc8 cS) 551s A2?s«CN AE SUBW R1,UCBSW_XQ_QUOTA(R5) ; Else, lessen quota so it can be 
1A81 8 3..increased on completion 
OO&F 30 1A81 BSBW EAMISH_RCV_10 3 And finish the I/ 
40 11 i“ 2 ? BRB 80$ 3 Look for next completion 
A 4 ; Return buffer to pool if user buffer failure 
10 a2 DD 1A 4 $0$:  PUSHL CXBSL _LINK(R2) > Save next in chain 
50 =65 DO 1A 5 MOVL R2,R ; Copy the buffer address 
00000000'GF 16 1A § JS8 G“COMSDRVDEALMEM ; DEALLOCATE the buffer 
2 BEDO 1A POP R ; Restore next buffer 
3 12 1A9 8 BNEQ ; $ ; Loop if more 
D 11 + #«+1A9 BRB $ ; Else, leave 
1A99 40 ; 
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19 cg ; Check buffer quota and queue if quota okay. 
00c8 CS. «51 A2s«1A99 «5843 408: = SUBW = R'1 ,UCB$W_XQ_QUOTA(RS) ; Decrement the quota 
1B H3 1A9 44 BGEQU 308 ; Br if we can buffer request 
o00c8 cS) = ss 551s A—sé*SAT AAA 45 ADDW CBS. XQ_QUOTA(RS) ; Replace quota 
1AA 46 INCC het 2 UBOCTR(RD) .W ; Else, no buffer available | 
1AAF 4 INCC DB UTUBOCTR(RG) wy i ...don't forget CDB counter 
cB. tédmM?YA he 24 ‘8 BRB 0$ ; Return buffer 
OOA4 DS 62 of 1AB 50 50$: INSQUE (R2),@UCBSQ_XQ_RCVMSG+4(R5) ; ae | received msg for Later 
F97B ; 1AC 51 BSBW FILLACVLIST : Try to fill the receive list 
gg 0 1AC 26 BSBW POKE_USER 3; De joer ASTs 
2 8EDO 1AC6 55 80$ POPL Re ; Restore R 
05 1AC9 5254 RSB ; Return to caller 


dD 15 


transmit CXB address 
CDB address 

UCB address 

IPL = FIPL 


Outputs: 


vo~000" FINISMAARTCFFI = Finish FAST interface t S-SEP-1984 00:20:54 EDRIVER.saeaxapRiven mars? “29° (18), 
en ° | 
ioe 7 -SBTTL FINISH XMT_FFI = Finish FAST interface transmit processing 
FINISH_XMT_FFI = Finish FAST interface transmit processing 
: ; Functional description: 

A This routine completes a transmit CXB for a particular user of the fast 
A interface. 

; Inputs: 

° R Status of transmit request 

A 


» 
w 
“nu 


RO-R3 are destroyed. 
ALL other registers are preserved. 


; RG 
F 


; 
; 
; 
; 
; 


a a ed ed dd ed 2 dd 
>>>>r>r>rrr>rr?r rr rr 
VIVIAAOHOMOHAAHAHAOHOHOHAHOOAAOOAAAOOAOOO 
NS-O>>>>>Yr>rr>r>r>rr>r>r>r>?>??Y>?>r>r Yr rrr rY 
080000000909 098 SINISE NNO AAAAAAAOOOUIUINI 
AIFS WN OC OONOAOU EWN OOONAUE WR" OO OO~NO 


ASSUME IPLS$_SYNCH EQ IPL$_XQ_FIPL 
INISH_XMT_FFI:: ; Finish FAST interface transmit request 
54 0D PUSHL ; Save R 
54 0180 C5 00 OVL UCBSL_XQ_ FFI(RS) ,R4 : Get FFI block address 
14 B84 16 JSB FISC_XMIT_DONE(R4) ; Call back the user with CxB 
54 se? § rue ; Restore R4 


FINISH_RCV_FF 


DOOOCOCOOOOOOOOOOOMMD —- 
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: -SBTTL FINISH RCV_FFI = Finish FAST receive processing 
; FINISH RCV_FFI = Finish FAST receive processing 


Functional description: 


This routine completes a receive CXB for a particular user of the fast 
; interface. 


Inputs: 


RG = CDB address 


RS = UCB address 
IPL = FIPL 
Outputs: 


receive CXB address 


RO-R3 are destroyed. 


ALL other registers are preserved. 


INISH_RCV_FFI:: 
PUSH 


SHL 
R2,R3 
MOVG  CXBS$G_R 


 ] 
rx 


CXB$Q~STATI 
$T_R_USERDAT 
ASSUME NMASC_STATE_ON EQ 0 


MOVW #CxBsT 


ASSUME IPLS_SYNCH EQ IPL$_xXQ_FIPL 
: 5 A adaar Ala recieve request 


SRC(R3) ,- 


ON(RS) 


UCB$B-XQ_P 
MOVW CXB$W_R_SIZE(R3),= 
XBSW_BENT(R3) 

ADDW = #XQ_C"CNTSIZ,CX 

30$:  MOVL  CDBTL-DEVDEPEND(R4), 
BISL  UCBSLDEVDEPEND(RS). 
MOVL UCBSL~XQ_FFI(RS) ,R4 
JSB aF FISC_RECV_DONE(R4) 
POPL  R4 
MOVL  R3,R2 
BEQL §=s«90$ 
BSBW = ADDRCVLIST 

90$: RSB 


ave 
Copy CXB address 
Copy source address 


; Br if padding is disabled 
; Else, set real size of buffer 


BSW_BOFF(R3) ; Adjust offset 


Set controller bits 

Set status flags 

Get FFI block address 

Call back the user with CxB 
Restore R4 

Was buffer consumed? 

Br if YES 


Else, add buffer to receive List 


Page 117 | 
(46) | 


CXBSW_BOFF(R3) ; Set offset to received data 
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18 : pes -SBTTL FINISH_RCV_IO = Finish receive I/0 processing | 
181 : ; FINISH_RCV_IO = Finish receive 1/0 processing 
18 8 : Functional description: 
181 40 : This routine completes a receive operation that has been matched with a 
1B1 41 ; message block. After the receive has been completed the message free List 
18 4 ; is filled and a receive is started if needed. 
+ te : Inputs: 
181 46 : R2 = receive CXB address 
181 47 ; RS = 1/0 packet address 
181 48 ; R4 = COB address 
18 5 23 3 RS = UCB address 
181 ; 31 : IPL = FIPL 
181 2 38 : Outputs: 
11 2322 : R5 is reset to UCB address from IRP 
181 2325 : The request is completed via I/0 post. | 
113. 3389 7 | 
1813 5360 FINISH_RCV_10:: ; Finish recieve 1/0 request 
2c AS. 52 00 181 age! MOUL R2, IRP$L_SVAPTE(R3) 3; Save block address 
3€ Ae 7D 1817 5 6¢ MOVG  CXB$G_R_SRC(R2),- ; Copy source address for DECnet | 
40 A 1B1A 336 IRP$Q~STATION(RS) ; al 
07 +€1 1B1C 5364 BBC #IRPS pincer - ; Br if no diagnotic buffer 
27 2A A3 1BIE 3365 IRP$W_STS(R3),10$ : 
51 4C AS) DO 1821 366 MOVL IRPS$L_DIAGBUF (R3) ,R1 3; Get erornret ys buffer 
50 OC Al 9E 1825 5367 MOVAB RHDR_T_DATA(R1),R : Assume this is ee a read header 
08 Al 16 HI 18 2368 cre #RHDR_C_LENGTH,BIAG_W_SIZECR1) Is this just a header buffer? 
50 30 Al 9E& 1B2F 5370 MOVAB DIAG_T_RDATA(R1),RO  —; Else, hust be a diagnostic buffer 
0B A2 «(90 «(1833 «5371 MOVB CXB$B_R_FLAGS(R25,- : Save diagnostic return info 
011D C4 1836 5 % COB_B BIAG1(R4) : awe 
14 A2 BO 1839 537 MOVW CxBSQ@_R_STS(R2),- F owe 
O11E C4 1B3C 5374 COB 9_BIAG2 (R45 ; —< 
C 8 1B3F é 75 5$ PUSHR #*M<R27R3,R4,R5> 3; Save registers | 
60 38 A2 E 2 1B41 6 MOVC3 #RHDR é Bog geet A_PATACE<? (88 ; Move header info 
¢ BA 1566 7 POPR #*M<R2,R3,R4,R5> ; Restore registers 
62 46 Ag i 1B4 A: 10$:  MOVAB CXBST_R USERDAT(R2).(R2); Set address of received data 
04 A 3C A DO 1B4C 7 MOVL IRP$L_X@_DATBUF (R35) ,4(¢ 2); Set address of user buffer 
te AS AO 1851 0 ADDW UCBSW-DEVBUFSIZ(R5),-  ; Adjust receive buffer quota 
00c8 c5 1854 1 UCB$W-XQ_QUOTA(RS) ; | 
51 WAA2 3C eer ¢ ; MOVZWL CXBSW-BCAT(R2) ,R1 ; Find Length of received message 
1028 : ; : Perform accounting on a per protocol type basis. 
185 ’ CNTR R1,UCBSL_XQ_RBYCTR(RS).L ; Bump the bytes received counter 
1867 : § INCC UCAS. XO-RBCCTR(RS) <L ; Bump’ the blocks received counter | 
1871 § : ; If padding is enabled, then the size of the data is contained in the 
1871 5390 ; message as the first word of data. 
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=™ 
=m 
z2=z 
Ow 
< 
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—Z 
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10 a2. 50$: —«‘TSTL CXBSL_LINK(R2) ; Is this a complex chained buffer? 
0B «O13 BEQL 0$ ; Br if no - set transfer size 
05 E1 BBC #IRPSV_CHAINED,- 
10 2A A3 IRP$W_STS(R3) ,45$ chained buffers 


BISW #IRPSM_COMPLX,=- ; Else indicate complex 

RPSW-STS(R3S : chained buffers : 
BRB 40$ ; And don't change user buffer size 

30$: MOVW R1, IRP$W_BCNT(R3) 3 


40$:  ASHL  #16,R1,R0 


45$:  MOVW  #SS$_CTRLERR,- 
IRP$Q_XQ_STATUS(R3) 


; Set size of transfer 


>Prrrrroovono 
ONS OUVINUPININININI TS ODO NWF ONUMWOMO OOOO OOWTS OUIVMNINNOVVTVVVIU SF PO 


; Set buffer size in status 
; Br if success 
; Set data transfer error 


B7 91; 
87 35 ASSUME NMASC_STATE_ON EQ 0 
B7 9 ASSUME NMASC_STATE_OFF EQ 1 
F 00D9 C5 8 187 94 BLBS UCB$B_XxG pee ina} +188 ; Br if padding is disabled 
0 46 A2 C 187 95 MOVZWL CXBSWIR_SIZE(R2),R ; Else, pick up real size of 
B7 38 ; MSG from the message itself 
62 02 CO a 2 ADDL #XQ_C_CNTSIZ,(R2) ; Move pointer past the count field 
B7 3 ; Verify that the 1st word of data at least makes some sense. The byte 
B7 rth ; count for the message must be less than the size of the entire received 
HA : 1 3; message. 
51 50 681 187 10 CMPW rt R1 ; Is size field larger than buffer? 
31 1E 188 404 BGEQU §45$ : Br if yes = 
B8 405 3 must be ogetecty Less Than, because 
B8 406 : the size field is 2 extra bytes. 
. P-s oe rt tA MOVZWL RO,R1 3; Else, copy the real buffer size 
3A A353 01 9B 188 09 15$: MOVZBW S“#SS$_NORMAL,IRPS$W_XQ_STATUS(R3) ; Assume success 
32 AS 651 «B81 188 CMPW R1, 1 RP$SW_BCNT(R3) ; Request larger than user buffer size? 
0A 1B 188 BLEQU 208 : Br if no = okay 
51 3 AS 3C 188 MOVZWL IRPS$W_BCNT(R3),R1 3; Else set size to minimum of two 
3A A3. 0838 BF sO Bg MOVW #SS$_BATAOVERUN, IRPS$W_XQ.STATUS(R3) ; Set return status 
B9 ; If_chained buffers, then setup IRP$W_STS and don't reset the USER BUFFER 
B9 3; SIZE CIRPSW_BCNT), because chained buffers need to have the USER BUFFER 
Bg : SIZE in IRPSW_BCNT. 
B 
B 
B 
B 
B 
B 
8 
8 
B 
88 
BB 
BB 
8B 
BB 
8B 
8B 


| 
| 
; Br if user cannot accept complex 
| 
| 


PRERRRR ERE L RRR L PEEP PPP PPP PPP PPP PPP PEERS 


BPR EEE PWN WII noPononononononony 2 


ee ee em ed ed od dd dd dd dd 


PVPVLVIVIVIV IV IVLVLIVIVLVIVLVLVSV SUSU VSVSUSUSUSUSUSVSUSISISTSIST SII SISISIOU 


50 3A A3. B 50$: MOVW IRP$W_XQ_STATUS(R3),RO ; Get status 
1D 61 60$: BSBB RE i Post the I/0 request 
F87C O53 ae BRwW FICLRCVLIST ; Fill up the receive buffers 

+! : Complete an 1/0 request packet | 
BC ABORT_PKT: ; Abort the 1/0 request | 
50 2C 9A 1BC MOVZBL S“*#SS$_ABORT,RO ; Return aborted status | 
+: 10_DONE3: ; Conpiete ghe 1/0 request, check for 
3 meou | 
55 1C Ad OD BC MOVL IRPSL_UCB(R3) ,R5 ; Get UCB address 
2} 405 0D BC MOVL UCBSL_CRB(R5) ,R1 ; Get CRB address 
1 1041 00 1BC MOVL  CRBSLTAUXSTRUC(R1),R1 _; Get COB address | 
05 Ny ft 4 1 18D BC XMSV_STS_TIMO CDB_L_DEVDEPEND(R ), IO0_DONE ; Br if not a timeout 
0 22C 8F C 18D MOVZWL #SS$_TIMEOUT,RO ; Else, returf real error code 

BD 447 10_DONE: : Complete an 1/0 request 


<x 


sets 
38 AS = 50 
cB oS 
1 €8 
1 0 Al 


3C AS = 0114 cf 


80 Baas 
80 0082 
0 
0 


00000000° 
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DO 18D +28 MOVL RO, IRP$L_IOST1(R3) ; Set status return and size 
1BE 449 I0_DONE1: ; Alternate rT point 
4 1BE 450 MOVL IRPSL_UCB(R3) ,R5 Get UCB addre 
i) 1BE4 5451 MOVL UCBSLDEVDEPEND(R5) , irpsi_ Tost (R3) g Set other info 
DO 1BE9 126 MOVL UCBSL_CRB(R5) .R 3 Get address 
DO 1BED 545 MOVL  § CRBSL~AUXSTR aueiRI), R1 det ¢DB address 
1 1BF 1 454 BEQL 10_DONE ; : Br i DB 
C of 455 BISL CDOB_L_DEVDEPEND(R1), IRPSL_ 10ST R ) Set controller bits 
1BF 456 10_DONE2: 77P1 1Ost2 already setup 
DD i1BF9 545 PUSHL R4 ; Sav 
DO 1BFB 5458 MOVL UCBSL_CRB(R5) ,R4 Get. che ee 
DO BFF 2459 MOVL cRBSL AUXSTRUC(R4) ,R4 ; Get CDB addres 
E1 1003 460 BBC #IRPST pl AGaUr ~ ; Br if no diagnotic buffer 
1€0 2461 IRPSW_STS(R ) 208 
DO 1C08 186 MOVL IRPSL_DIAGBUF (R3) - Get diagnostic buffer address 
B1 1C0C 546 CMPW = #RHDR-C_LENGTH, DIAG_W_ srietfh : Is this a real diag buffer? 
13 1018 2708 EQL ees 3; Br if not - no diagnostic info 
4 1C1 465 ADDL3 #8, (RO),RO : : Address buffer past start time 
D 1€16 2466 OVG G*EXESGG SYSTIME,(RO)+ ; Insert stop time 
DO 1C1D 546 OVL CDB_L_UCBO(R4) ,RI ; Get address of UCB #0 
*f 1t36 5468 MOVZWL Ucesu, ERRCNT(R1),(RO)+ : Insert error counter 
0 1C 5469 BSBW REG_DOMP ; Dump registers 
8EDO bE = 5470 208: POPL : Restore R 
17 1C2D 5471 JMP G*COMSPOST 3; Post the 1/0 and return 


)| 


<x 


v= 
xz 
=n 


XODRIVER = VAX/ 
VOe- 000 ASSEM_ 


Functional description: 


buffers. 
Inputs: 
R4 = CDB address 


PSS or er at ee oe ae 


WOO OO 0000009000000 09090908 INI NI IIIS 


DOO NOE WS ODO NAM EWI ODES NOMEN = DOO MOA dD DOOD I A oO OOO OOS 


IPL = FIPL 
Outputs: 


R1,R3 are destroyed. 
atl 
Implicit Outputs: 


ono 


Bete Ge Se Se Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Ge Se Se Se 


-ENABL LSB 


ASSEM_PKiS: : 
0096 30 BSBU = NEXTMSG 
0150 &8 BLBS RO, 5$ 
05 RSB 


3; all messages in CXB$ 


PADMA INE BE SE ENN NAAN WII ANNI NINN ANIA NINN AIAN NIAAA 


SSSI oSe ema NUM M DS DS PS POP WANN NWNNNININININIWNIAAANN AAAI AAINININIAIAI 


i ee ee ee ee ee ee ee ee ee me ee ee ee ee ae ed ed ad ad 
POO OOVOBVOAOAIAOEOYA9IAOAAYVOYOVOYVAYOAVAVOYAYAOAIOAOOAIAAAAIOAOOAIMAOAAAAAMAIOIAAFAIAIAOOOOOOOOO 


MAMA AAAI AIA AIUD BB RRR RRP RRR PRD 


DVIVPVUDPVWDIVDVIVLIVLVDVIVDULVLVSIVSUSVSIUSVSVASUSVSUASUSUSUSU FUSES 


RS = Status for request 
R2 = Address of first receive buffer in chain 
R6 = Address of last buffer in receive ring 


1 15 
QNA driver 16-SEP-1984 
S - Assemble receive packets -SEP-1984 


cad -SBTTL ASSEM_PKTS = Assemble receive packets 
; ASSEM_PKTS = Assemble receive packets 


R7 = Receive ring address 


0 
0 
0 
0 
0 
0 
0 
0 
0 
, 
1c a2. 01—s BO 11 5s: MOVW $*#1,CXBSW_R_NCHAIN(R2) 
1A A BS 1 CLRW CXB$W_BCNTTR2) 
50 OC Ae B0 1 MOVW § CXBSW~LENGTH(R2) RO 
OF £1 1 BBC #RCV_STS_V_LAST,- 
51 14 A 1 SxBSU_R~STS(R2S ,408 
52D 1 PUSHL R 
53. O01 9A 1 MOVZBL #MAX_C_CHAIN,R3 
A6 «BO 18 10$: MOVW RCV_@ CEN(R6S,- 
CA 1 SXBSO_LENGTH(R2) 
3 pp PUSHL R 
0 BSBW NEXTMSG 
1 8&0 POPL Ri 
2150 ~€ BLBC ~=—_-« RO, 208 
66 D MOVL ($F RO 
10 Al D MOVL OR CXBSL LINK(R1) 
Oc Al oA ADDW  CXB$W_LERGTH(R1),- 
1A Ag cxBs0 BCNT(RO) 
1C AO B6 INCW CXB$W_R_NCHAIN(RO) 
OF €1 1C6E BBC #RCV_STS_V_LAST,- 


00:2 
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0:5 


other registers are preserved. 


As 
Ge 
Br 


Co 


Ini 


Ge 
Br 
Sa 
Al 
Se 


Sa 
Tr 
Ge 
To 
Ge 
St 
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This routine assembles all receive packets into one chain of complex 


IRP$V_CHAIN and IRPS$V_COMPLX bits set in IRP$W_STS if the receive 
buffer is comprised of complex chained buffers. 


semble receive packets 
t first message 

if we got one 
turn in error 


; Save number of git chain in CXB$W_R_NCHAIN and total size of 


mpute total number of buffers 
t total size of buffers so far 
t size of message 
if end of packet 
all done with this loop 
ve first receive buffer address 
low nm messages in chain 
t size of buffer to maximum per rcv 


ve address of current bufr in chain 
for next message 
address of last buffer in chain 
ss all messages on error 
t address of first in chain 
ore address in chain 


Compute total size of all buffers 
in chain - so f 


Co 
Br 


ar 
mpute number of msgs in chain 
f end of packet 


2 
4 


1 
8). 


| 


—- 4 


J 15 
MS QNA driver 1grsee=12 4 ea AX/VMS Macro Vv04-00 Page 126 
KT ~ : (4 


maOR iver - VA 
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OF 14 A 1¢70 $530 HBS _R_STS(R2),308 | 
d9 5 F5 1502 1 SOBGTR R5,10$ 3; Loop if more than two in chain 
Hn I4 5 ; Done with loop and LAST bit still not set - toss all messages 
Wee 5 INCC CDB_W_OVRCTR(R4) ,W ; Count as hardware error 
if 5 ; Error exit 
21.11 1¢ 339 20$: BRB TOSAMSG ; Toss all messages 
51 2g dO =61C¢ 541 308: MOVL agom ; Save address of last message | 
8EDO 1C¢ 246 POPL ; Return first message address in R2 
0B Al 90 1C€88 554 MOVB CXBSB_R_FLAGS(R1) ,- ; Save only Last message buffer info 
OB A2 1C8B 5544 CXBSB_R_FLAGS(R25 : _in first message of chain 
14 Al BO 1C8D 5545 MOVW cxpey R_STS(R1),- ; DITTO 
14 A2 1690 346 CXBSQ_R STS(R2S ; 
50 OC Al B60 1C€92 554 MOVW CxB$wW_CERNGTH(R1) ,RO i Save size of entire message 
1A A2 A 1e38 548 SUBW CXBSW_BCNT(R2),- ; Compute size of last message 
OC Al 1099 5549 CXB$Q_LENGTH(R1) ; and store in CXB format 
1A A2. 50 80 1€9B 5550 40S: MOVW RO,CXBSW_BCNT(R2) ; Return size of comptete message 
50 01 3A CoE 31 308; MOV ZBL S*#SS$_NORMAL ,RO > Return success! 
1CA 326 ; 
\eA 2220 3: Toss bad messages 
52 BEDO IAS 5556 TOSAMSG:POPL = -R2 ; Restore R2 | 
1CA6 5557 TOSSMSG: INCC COB_W_LBECTR(R4) ,W ; Up the counter : 
10 A2 OD 1ce9 5558 110$: PUSHL CXBSL-LINK(R2) ; Save address of next in chain 
F78A 1CB3 5559 BSBW ADORCULIST 3 Add buffer to receive list 
52 8EDO 1€B6 5560 POPL R2 3; Restore address of next in chain | 
F 12 1CB9 5561 BNEQ 110$ ; Br if more in chain 
50 D4 1CBB 2208 120$: CLRL RO 3; Assume failure 
OF €0 1CBD 556 BBS #RCV_STS_V_LAST,=- ; Br if NOT end of chain 
03 08 A6 1CBF 2268 RCV-W_STSTR6) , 130$ 3 get rest of message 
FF6 31 433 565 BRW ASSER_PKTS ; Else, try for next valid message 
10 1CC 368 130$:  ®8SBB NEXTMSG ; Get next message 
D8 50 «6&9 «61CC7 «(4556 BLBC RO,10 ; Br if none 
€F 11 ICCA 368 RB 26s : Check if more possible 
1cCC =5570 ; 
1Scs ya 3; Find next message and check ownership 
50 D4 1CCC 378 NEXTMSG:CLRL RO ; Assume failure | 
O10E C4 «95s 74 TSTB COB_B_RCVCNT(R4) ; Any more receives in progress? 
01 ig 1¢D 575 BNEQ 5$ ; Br if yes 
0 1eB8 278 1$: RSB ; Else, return | 
56 10C C4 9A 1Ep3 378 5$: MOVZBL CDB_B_LASTRCV(R4) ,R6 ; Get last ring entry completed inx 
56. 7C A446 «620 «ICDA «5579 MOVL  CDB-L-RRINGVA(R4)(R61,R6; Get last ring entry address | 
05 08 Aé «4OOF «601 «COCDF «45580 BBC #RCU_STS_V_LAST,RCV_W_STS(R6),10$ ; Br if done 
B08 A6_ OE et 1CE4 5581 BBC #RCV-STS-V-ERR,RCV_@_STS(R6),1$ ; Br if not done | 
A6 OA AG 91 1CE9 55 2 10$ CMPB RCV_O_LERBTRG) ,RCV_U_LENB# I (RG) : Are we really done? 
71 «#12 «+1CE 5 BNEQ 90$ ; Br if not, leave now | 
52 OOFC D4 oF 1CFO 5584 REMQUE @CDB_Q_RCVPND(R4),.R2 : Get next receive | 
6A D I1CF 585 BVS ; Br if none available (yet) 
10 A2 D4 SOIC 586 CLRL CXBSL_LINK(R2) ; Assume not a chained buffer | 


<x 
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Bide C6 «97 «#6ICFA 7 DECB COB_B_RCVCNT(R4) ; One less receive pending 
1 . Ys 36 1CF 8 INCB CDB_B_LASTRCV(R4) ; Bump ring pointer 
F8 BF A 1D BICB #*C2MAX_C_RCV-1>,- ; Modulo receive ring entry size 
010C C4 1D 0 CDB_B_CASTRCV(R4) : fate 
1D ; 91 CLRBIT #RCV_DSC_V_VALID,- 3: Indicate that buffer is not valid 
1D0 36 RCV=W_ADDRHI (R65 : 
1D0D 5593 ; 
1080 3¢ 3; Compute buffer size 
FSFF 8F AB 1D0D 239 BICW3 #*C<RCV_STS_M_RLEN>,- ; Store Length <10:8> 
08 As 1011 559 RCV_W_STS(R6J,- : 
OC A 1013 598 CXBSW"LENGTH(R2) : 
OA A 90 1D1 599 MOVB RCV_W CENB(R6),= 3 Store Length in CXB <7:0> 
OC A 1018 5600 CXB$@_LENGTH(R2) : 
2E AO 1D1A 5601 ADDW #XQ_C_ADDRCV-<x0_C_HEADER+xQ_C_CRC>,- ; Add in missed count 
OC A 1D1C 2606 CxB$Q_LENGTH(R2) : .-minus header and CRC 
08 A6) «6©BO «(IDIE 280 MOVW RCV_W_STS(R6) = ; Save status flags in CXB 
14 A2 131 604 CXB$Q_R_STS(R2) 
01 A6 490 1023 5605 MOVB RCV_W_PLAG+1(R6) ,- ; Save flags byte (high word) 
0B A2 1D26 3606 CXBSB_R_FLAGS (R2) ; 
1038 3008 ; Adjust quota and release mapping slot 
O2F2 C46 = 9S 138 5610 TSTB CDB_B_AQUOTA(R4) ; Are running on extra QUOTA? 
06 1s 1D2C 5611 BNEQ 30$ ; Br if not 
O2F2 ¢4 9 oes 2018 DECB CDB_B_AQUOTA(R4) ; Else, decrement extra QUOTA 
07 (11 103 3613 BRB 40$ : Continue 
0110 C46 AO 1034 5615 30S: ADDW CDB_W_BSZ(R4),- ; Replenish CDB quota 
0112 C4 1D38 2616 CDB_@ QUOTA(R4) : 
51 22 A2 9A 1D3B 5617 40$ MOVZBL CXB$B8_XQ_SLOT(R2),R1 ; Get mapping slot number used 
1D3F 5618 CLRBIT R1,COB ; RCVMAP(R4) : Clear in use flag 
1044 5619 CPUDISP <<790,80S>,- 
1044 5620 <780 ,80$>,- 
1044 5621 0,80$>, 
1044 56 ¢ <730,80$>,- 
1D44 26 <UV1,100$>> 3; Copy data on u-VAX I 
50 01 9A 1D5E 5624 80$:  MOVZBL S*#SS$_NORMAL,RO > Return success! 
05 1061 8 5 90$: RSB 
106 626 
1D6 627 100$: pererererrrerererere 
106 628 3; For u-VAX I, ONLY. 
1D6 629 RRR eeeeeeeeereee 
B3 1d6¢ 3630 B1Tw #RCV_STS_M_ESETUP! = ; Is this a setup packet or error? 
. = 
14 A2 6000 8F 1063 56 : CXBSW_R-STS(R2) 
F4 a 1068 56 BNEQ 80$ : Br if yes, skip it 
50 00C4 C441 DO 1D6A 5634 MOVL CDB_L_RCV_VA(R4)CR1),R0_ ; Get address of contiguous buffer 
0110 c4) = «O€ Ag B1 1070 5635 CMPW CXBSU_LENGTH(R2) , CDB_W_B5Z(R4) ; Check size of received data 
0 18 1076 6 § BLEQU§ 110% 3; Br if okay : 
1D7 6 SETBIT #RCV_STS_V_ERR,=- ; Else, indicate error 
1078 5638 CXBSW_R~STS(R2) ; _and let it get tossed 
DF 11 1070 $73 BRB 80$ 3; Continue 
+3 Al 1D7F 5641 1108: ADDW3 #XQ_C_HEADER,- 3; Add back in the header 
53 OCA 108) $¢6 CXB$Q_LENGTH(R2) ,R3 3 
34 BB 1084 564 PUSHR #*M<RZ7R4,R5> ; Save registers 


<< ot 
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ASSEM_PKTS = Assemble receive packets =SEP-1 DRIVER.S REIX QDRIVER.MAR; 1 (48) 
38 A260 28 oe MOVC3 = R3 a“? a conceited Move the data 
3 eA POPR #PA<R2,R4G,R5> ; Restore registers 


ec BRB «80S : Continue | 
| 


; 
j 
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YO 000 MOP_CTR_REQUEST = PROCESS MOP READ COUNT ~$eE 1 382 9 :30544 LORIVER. SREIRODRIVER.MAR: 1 ’ (49) | 
| 
1 : $68 a -SBTTL MOP_CTR_REQUEST = PROCESS MOP READ COUNTERS REQUEST 
1 : e29 ; MOP_CTR_REQUEST = PROCESS MOP READ COUNTERS REQUEST 
PY 
i : $26 ; FUNCTIONAL DESCRIPTION: 
1 : $28 ; This routine is called to process a remote request to read the LINE counters. 
1D8F $28 3 Inputs: | 
1D8F 5657 ; 
1D8F 5658 ; R2 = Address of the received message 
H+ + 659 ; R4 = COB address 
1D8F 5660 ; 
1D8F 5661 ; Outputs: 
1D8F 2006 3 
jo 665 ; RO,R1,R2,R3,R5 are destroyed 
1D8F 5664 ; R4 is preserved 
1D8F 5665 ;-- 
1D8F 2096 
1D8F 5667 MOP_CTR_REQUEST:: ; Process a read counters request 
10 A2 0S 1D8F 5668 TSTL CXBSL_LINK(R2) ; Is this a chained message? 
24 12 1092 5669 BNEQ 8 ; Br if yes, return packets 
Bi 1094 5670 CMPW #IRPSC_LENGTH- : Is a receive buffer large enough? 
1095 5671 +CXB$C_HEADER+3- 
1095 2076 +MOP_CTR_SIZE+8,- 
08 A2 0168 8F 1D95 567 CxXBSQ_SIZE(R2) 
1C 1A 1D9A 5674 BGTRU 80$ ; Br if no, ignore message 
55 0118 C6 DO 1D9C 5675 MOVL CDB_L_UCBO(R4) ,R5 ; Get address of UCB #0 
50 3E A2 7D IDA1 5676 MOVQ CXBSG-R_SRC(R2) ,RO ; Save source node address 
47 ag BO 1DAS5 5677 MOV CXBST_R_USERDAT+1(R2) ,-; Copy the request | | 
0100 C¢ 1DA8 5678 IRPSC LENGTH+CXBSC_HEADER+1 ( 2) ; to the Message block | 
0502 30 1DAB 5679 BSBW BLD_IRP : Turn the message block into an IRP | 
40 A3 50 7D IDA 5680 MOVQ RO, IRP$Q_STATION(R3) : Set the return node address 
14 A3 54 DO 108 681 MOVL R4, IRP$L_ASTPRM(R3) ; Save the CDB address 
oc 11 1038 tt BRB MOP_CTR_BUILD ; Build the response message | 
1Da8 208% ; Error - returns packets to receive queue 
10 A2 DD +1DB8 5686 80s: PUSHL CXBSL_LINK(R2) ; Save next in chain | 
F68 0 1D88 at BSBW ADDRCULIST ; Add buffer to receive List 
52 8EDO 1DBE 5688 POPL R2 ; Restore next buffer 
F 12 1D0C1 5689 BNEQ 80$ ; Loop if more 
05 10C3 eeay RSB ; Return to caller 
1DC4 5691 
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ne -SBTTL MOP_CTR BUILD = BUILD THE MOP COUNTER RETURN MESSAGE 
; MOP_CTR_BUILD = BUILD THE MOP COUNTER RETURN MESSAGE 


; FUNCTIONAL DESCRIPTION: 


; This routine is called to build the return message in response to a 


; MOP read counters request. 


Inputs: 
R3 = IRP address 
R4 = CDB address 
R5 = UCB address of UNIT 0 
; Outputs: 


R4 = CDB address 
R5 = UCB address of UNIT 0 


RO,R1 are destroyed 


MOP_CTR_BUILD: 

#7M<R3 RG RS .R6R7 .RB> 

MOVAB IRPS$C_LENGTH+- 
CXBSC~HEADER(R3) ,R3 

MOVB ani CTR_REPLY, (R3)+ 

(R3+ 

MOVAB MOPCTRTAB,R7 

20$: MOVZWL (R7)+,R8 


BEQL 30$ 
ADDL Re «RS 
ast 40,4 


(R7) ,R2 
Move (RB), (RS) 
MOVZBL (R?7)+,R1 
BBC #7,R1,20$ 
MOVW girs » (R3)+ 
BRB 20$ 
30$: POPR #*M<R3,R4,R5.R6,R7,R8> 
MOVAB 
MOVAB IRPSC_LERGTH(RS) ,R2 
MOVE soft XB, CXB$B. TY 
MOVW #MOP CTR sizes 7 
CXB$Q_BCAT (Re) 
ASSUME CXBSC"HEADER EQ CXBST_ 
VW #cxst T DATA,- 
XBSW OFF (Re 
MOVL  R3,CXBSL_T_IRP(R2) 
mova 1RPSO_STATTON(R3) .- 
CXBSQ7STATION(R2) 
MOVE #XQ_FC V_XMIT,- 
CXBSB_RQ-FUNC(R2) 


Build the MOP counter return msg 


; Save registers 

; Copy CD 

; Point to start of message 
block 


address 


; Set function to reoty 
; Skip request ID (filled in earlier) 
; Get address of MOP counters 


Get the offset to the counter desired 
Br if end of table 

Compute address of the counter 

Get the width field without bitmap 
Copy the counter 

Get the width field again 

Br if no BITMAP to return 

Else, store the BITMAP 

Loop for next counter 


; Restore registers 
W*DELETE BLOCK, IRPS$L_PID(R3) ; Set the return address 


ddress of 


et a x 
PE(R2$ ; Make it look Like a CXB 


Set size of transfer 


T_pATAsxa C_HEADER 


et offSet to start of data 


Save IRP address in CXB 
Set STATION in CXB 


; Set function request in CXB 


» | 


roe 1, 


—_———— ee ee 
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XQDRIVER - VAX/VMS QNA driver 16-SEP-1984 AX/VMS Macro V04-00 Page 1 
06. O05 MOP_CTR_BUILD = BUILD THE MOP COUNTER RE g-3é P= =}382 88: 36; ¢¢ YORIVER. SRCJXQDRIVER.MAR; 1 ° 182) 
23 {Cc A 0 iE é 7 9 L IRP$L_UCB(R3) ,R5 ; Get the UCB address 
AA — iE 7 MOVAB CXB$T-T_DATA(R2) ,R2 : Set R2 to start of data 
40 A D IE A , : MOVa IRPSQ_STATION(RSS ,- : et th destination address 
as: $f BO iE § 754 MOVW #NI_CTR_PROTYP,- ; Store the protocol type 
C Ag 1€ £33 XBUF_w_TYPE(R25 
00C4 C OE 1634 57 § INSQUE IRPSC_CENGTH(R3),- ; Insert request on request queue 
00E0 b4 1638 575 @CDB_G_XMTREQ+4(R4) 
£655 31 i ° £38 BRW XMT_ALT_START ; Startup the reply 


XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 ee oY AX/VMS Macro v04-00 Page 198 
v04-000 REG_DUMP = DEQNA ERROR LOG AND DIAGNOSTI -SEP-1984 20:54 (CDRIVER.SRCIJXQDRIVER.MAR; 1 (51) 


\E E 16) ae -SBTTL REG DUMP = DEQNA ERROR LOG AND DIAGNOSTICS REGISTER DUMP 
if 4 768 ; REG_DUMP = DIAGNOSTICS REGISTER DUMP ROUTINE 
it ; £8 ; FUNCTIONAL DESCRIPTION: 
IESE 59 ; This routine is used to return the DEQNA error log and diagnostics 
15 ; pes ; buffer on error or diagnostic Q10 function. 
1E3E 566 ; Inputs: 
1E3E 5771; 
lege ae 3 RO = Address of the buffer @ DIAG_L_EXTRA 
1E3SE S775 : R4 = COB address 
1E3E 5774 ; R5 = UCB address of the unit 
1ESE 5775 ; 
1E3E 2526 ; Outputs: 
1E3E 5777 ; 
1E3E 5778; RO,R1 are destroyed 
1E3E 5779; R4,R5 are preserved 
1E3E 5780 ;-- 
1E3E 5781 REG_DUMP:: 
1E3E 378¢ SSUME DIAG_L_DEPEND EQ DIAG_L_EXTRA+4 
1E3E 578 ASSUME DIAG_W_CSR EQ DIAG_L_BEPEND 
1E3E 5784 ASSUME DIAG W7ERR EQ DIAG W~CSR+2 
1E3E 5785 ASSUME DIAG_W-ERR2 EQ DIAG @_ERR+2 
1E3E 5786 ASSUME DIAG-G-HWA EQ DIAG_@_ERR2+ 
80 06 9A 1E3E 5787 MOVZBL #DIAG_C_EXTRA, (RO)? ; Insert number of returned long words 
80 10 A4 BO 1€41 5788 MOVW COB_L-CSR(R4), (RO)+ ; Insert last CSR contents 
80 0110 C4 9B 1645 5789 MOVZBW CDB~B-DIAGI(R4),(RO)+ ; Return error flags info 
80 O11E C4 BO 1E4A 5790 MOVW CDB_W_DIAG2(R4),(RO)+  ; Return extra error info 
80 0254 C4 DO 1E4F 5791 MOVL CDB_G_HWA(R4) (RO)+ ; Return hardware physical address 
80 0258 C4 B0 1656 3798 MOV CDB[G"HWA+4(R4),(RO)+ =: are 
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v04-000 RESTART_ROUT = PROCESS EXPIRATION OF res | -SEP-1984 0:54 YORIVER. SRCIJXQDRIVER.MAR; 1 (52) 
165A 8 -SBTTL RESTART_ROUT = PROCESS EXPIRATION OF RESTART TIMER 
1E2A 19% : RESTART ROUT = PROCESS EXPIRATION OF RESTART TIMER 
TESA 793 : Functional description: 
1E5A 01 : This routine is entered when the RESTART delta time has expired. The action 
1E5A 8 ; is to check if the specified unit has been restarted, if so, then it is 
1Eeh 87 3 automatically restarted. 
TESA Ht : Inputs: 
1E5A 8 : R4 = CDB address 
JERA 2508 3 R5 = TQE address (but must be at least as long as an IRP) 
TESA 3810 ; IPL = IPL$_TIMER 
JEeA 2816 : Implicit inputs: 
TESA 9814 ; IRPSL_RBOFF(RS) = UCB address for UNIT 
TESA 3816 > Outputs: 
HT 2318 : RO-R3 are destroyed. 
1E5A 5820 ° .ENABL LSB 
1E5A 5821 RESTART_ROUT:: ; process expiration of restart timer 
55 DD ESA 58 ¢ PUSHL 5 ve RS 
1E5C 582 ASSUME IRPSL_RBOFF GT TQESC _LENGTH 
30 AS) «69E «=61ESC «(45824 MOVAB TQESC_LENGTH(RS),R2 ~ ; Point to IRP portion of TQE 
00968 C2 00 1e60 $896 MOVL IRP$L_RBOFF(R2),R5 ; Reset RS to UCB address 
1663 38 , : Turn TOE into an IRP 
$33 G2 TE 1665 3899 F MOVAQ (R2)+,R3 ; Copy IRP address, skip to size field 
1668 5830 ASSUME IRPSW_SIZE EQ 8 
1E68 283! ASSUME IRP$B_ TYPE EQ IRPSW_SIZE+e 
1668 58 ¢ ASSUME IRP$ ~RMOD EQ IRPS$B_TYPE+1 
52 02 CO 1€68 583 ADDL #2,R 3; Skip size field 
82 OA B60 1€6B 2338 MOVW #DYNSC_IRP,(R2)+ ; Set type to IRP 
1E6E 5835 ASSUME IRPS$L_PID €0 TRPSB_RMOD+4 
1EB3'CF 9E 1€6 2836 MOVAB wane TORN IRP,(R2)+ ; Set return address form IOPOST 
1E7 ASSUME IRPSL LAST EQ IRPSL_PID+4 
1€7 3 ASSUME TRPSL_ASTPRM EQ IRPSL -AST+4 
82 7C =(1€7 LRQ (R2)+ Clear AST, ASTPRM 
1E75 5840 ASSUME IRPSL “WIND, EQ IRPSL asrPhns4 
1€7 41 ASSUME IRP$L_UCB Q IRPSL_QIN 
8 D4 «(1E7 rk: LRL (R2)+ ° Clear WIND 
82 DO 1&7 4 VL R5,(R2)+ Set UCB address 
1E7A 5844 ASSUME TRPSU-FUNC EQ IRPSL ceed 
1E7A 45 ASSUME IRPS$B"XQ FUNC EQ IRPS$W A amt 
1E7A rk ASSUME IRPS$B_EFR EQ IRPS$W_FUNT+ 
1E7A 4 ASSUME IRPSB_PRI EQ IRPSB_EFN+1 
1E7A $8 ASSUME IRPS$L_IOSB EQ IRPS$B PRI+1 
0500 8F BO I1E7A 4 Vw #<xXQ_FC_V_RESTART@85,(R2)+ ; Set function request 
B4 1E7F 50 CLRW Ht 3; Clear E PRI 
D4 1681 5851 CLRL = (R2) + : Clear 10S6 
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ART_ROUT = PROCESS EXPIRATION OF RES 5=SEP=-1984 0:54 (CDRIVER.SRCJXQORIVER.MAR; 1 
1E 26 ASSUME IRPS$W_CHAN EQ IRPS$L_IOSB+4 

1E 5 ASSUME IRPS$WISTS EQ IRP$W_CHAN+2 

1E 54 SSUME IRPSL_SVAPTE EQ IRP WSTS+2 

1E 55 LRQ (R2)+ Sheer CHAN, STS, SVAPTE 
1685 26 ASSUME IRPS$W_BOFF EQ IRPSL sys 

1E85 5 ASSUME IRPSWIBCNT EQ IRPS$W_BOFF+ 

1€85 58 ASSUME IRPS$WBCNT EQ IRPSL_BCNT 

1685 $28 ASSUME IRPSL-MEDIA EQ IRPSO. BCNT+6 

1E85 2 60 CLRQ (R2)+~ 3; Clear BOFF, BCNT 

1€87 61 MOVZWL 9 #<XQ_FC_V_INIT@8>,(R2)+ ; + Set MEDIA 

1s " ; 86 CLRL (R2)F : Clear MEDIA+4 

1E8C 64 ; RESTART the UNIT 

1E8C 5865 ; 

Ha" 2 66 DSBINT UCBS$B_FIPL(RS) 3; Raise IPL 

1E9 867 BICW CBSA_XQ_INTERLOCK,- ; Clear the RESTART interlock 
1E97 5868 UCBSW_BevSTS(R5) 3 

1E99 5869 BBSS #UCBS9_ xa INI TED es ; Br if unit already inited 
1E9B 5870 UCB$W_BEVSTS(R5) ,10$ ; 

1E9E 5871 BSBW TART 3; Start protocol 

1EA1 2876 BLBS 0,30$ ; Br if success 

1EA4 587 

1EA4 5874 BSBW STOP ; Shutdown unit 

1EA7 237? 10$: MOVL R3,R5 : Point RS to IRP 

1EAA 5876 BSBB RETURN_IRP ; Return the IRP 

1EAC 5877 30S: ENBINT 3 Re-enable interrupts 

1EAF 5878 POPL R5 3; Restore R5 

ieee 5879 RSB ; Return to caller 

1EB3 5880 

1£B3 5881 RETURN_IRP: 

1EB3 5882 MOVAB =TQESC_LENGTH(RS),RO ; Get address of start of structure 
1EB7 5883 G*COMSBRVDEALMEM 3; Deallocate the IRP 


Page 130 
(52) 


rape EYER 
v04-000 


50 60118 C4 
00 

65 024A C4 
O20E C4 

06 

O20E C4 

4E 

oc 

07 0114 C4 
F556 


55 0118 C4 
55 30 AS 


F6 68 AS 
F1 68 AS 
0008 C 

E 


68 AS 0060 He 
52.0191 § 
Oe 


WOOOOOOOOOOCCOCDODOCDCOCDCOCDCSCUOCDODCDCD )06~—U > 
—DOOCOCOGDOOOCOCO0O0 000000000 c C00 


z=< 
ms 
maw 
‘oo 
za 
oa 
os 


FUSISUSISISISISIUI 


DOOOO NN MMMMMMMMOOOOVOMOCCOCWWWIVIVIVIVIVIWOVIOWVWIVIWIWOIWIOOWVIOWOW 


a a a kk dd dd a 
SF 8 FF MPM MM MMM Mmmm MMMM mmr rv rvirri cri rvicviecvicnicricviecvecvieevicricvirvievicvicvirvievicricyy 
SSDS ——OMP SOS ROOMS UMPDDVDVA GH ONU MD ovrvesvoovecvoe epee epee eee sss 
MOOD NA UE WIN OOOO IA ME WWI © OO NAME WW O OD NAUS WN OOONAUES WN" OOONOW 


I adh ich elidel seid solic edhath edith eile dh edie edie scaly elit lal lh eit ith edly lide saith side dich sdldh dich och “dh shh Ah Ah Ab Ah Ab ab Ab Ab dh Ah Ah dh Ab Ah Ah Ab Ah A) 


WODOOOOOOOOOOVOOOOOOOVOOOOOOOVOOOVNNO 


FPR WWAWNAWNWNIIRINONINONONONONIN ND) 2 2 


oO 


-—wWo— 
—DoOw 


F 16 


me. 

nc 

“ne 
4 


16-SEP-1984 


7:44 VAX/VMS Macro v04-00 P 13 
EXPIRATION OF TOE TI 5-SEP-1984 ¢ ~ 


0:54 (CDRIVER.SRCIXQDRIVER.MAR; 1 


~SBTTL TQE_TIMER = PROCESS EXPIRATION OF TQE TIMER 
TQE_TIMER = PROCESS EXPIRATION OF TQE TIMER 


Functional description: 


This routine is entered when the TQE delta time has expired. The action is to 
check all timer cells and shut down the controller if any have expired. 


Inputs: 


R4 = CDB address 
R5 = TQE address 


IPL = IPLS_TIMER 
Outputs: 


RO-R3 are destroyed. 
R4,R5 are preserved 


-ENABL LSB 
TQE_TIMER:: 
MO 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


VL CDB_L_UCBO(R4) 
DSBINT UCBSB-DIPL(RO) 
BBC #CdB_STS_V_INI 
COB_B_STS(R4), 
TSTB CDB_B_TIM_XMT( 
BEQL 10$ 
DECB COB_B_TIM_XM 
BEQL TIMOUT 
10$: BBC #XM$V_STS_B 
COB_L_DEVBE 
SETIPL CDB-B-FIPL(R4 
BSBW FILCROVLIST 
30$: ENBINT 
.IF DF POINT 
PUSHQ R4 
MOVL CDB_L_UCBO(R4) 
DSBINT UCBSB_FIPL(RS) 
50$: MOVL UCBSL_LINK(R5) 
BEQL 0$ 
ASSUME UCB$V_XQ_INITE 
BLBC UCBSW-DEUSTS(R 
BBC #UCBS0_XQ_RUN 
UCBSW_DEVSTS(R 
CMPB #NMAST_LINPR 4 
CB$B_%Q_PROTR 
BNEQ 0$ 


BITw § #UCBSM_XQ_START!- 
UCBSM-XQ~STACK = 
yoBsu_DEVSTS(R5S 


UCBSL RO STIAPCRS) Me 


BsBy BLD_STRI I 


Sete Se Se 


Bete Se Ge Se Ge Se Oe & 


ae 
PRFL HL FL FL FL FLFLFLVLFLFLIL —- SLL HL LIL 


Process expiration of TQE timer 
Get first UCB address 

Sync access to UCB and CDB 

Br if NOT inited 


; Is the xmit timer going? 


Br if not 
Timer expired? 


r 4 ree 
Br if NO buffer allocation failures 


Else, sync access to UCB & CDB 
And try to replenish receive buffers 
Restore IPL 


Save R4, R5 

Get UCB address of unit 0 
Sync access to UCB 

Travel down UCBs 

Br if end of (ist 


Br if not inited 
Br if not running yet 


Are we in point to point mode? 


Br if not 
Br if not in startup or 
Stack wait states 


Get startup IRP addresss 
Build the startup iRP 
Look for more 


sets 


55 
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z==< 


driver A at i dat b+ eH 

- PROCESS EXPIRATION OF TQE TI SEP=1984 00:20: 
4 

% 


hk kk 
FS FWNWWIWIWIIinononononononenorny 


SF Fe re 


WOWOOOOOOOONOOOONO 
PAPAS & 
OOWONAUE WO OOnNO 


PUPP SUSU 
oO 
= 


G 16 
744 VAX/VMS Macro V04-00 
4 (CDORIVER.SRCIXQDRIVER.MAR; 1 


4 
5 
Re-enable Fisag * dani 
Restore R 


R4 


; Return to caller 


R4 ; Save R4, R5 

RO,RS ; Copy address of UCBO 
DEV_TIMEOUT ; Else, timeout has occurred 
RG 3; Restore R4, R5 


#TOESM REPEAT . TOESB_ navvbecnss Stop. the timer 
#CDB STs P TIMER, ~ : Indicate that timer is stopped 


seTsh: NOUNLOAD, - > OKAY to unload the driver now 


: Leave 
ie 


R3,R4 are destroyed. 
R5 is preserved 


ata TAMEGOY"S PUACSGA*EEmvice nourine ——SCERCHBEE BREEGISE ESAS. RSRONRIGRR a1 88° UE 
° - -SBTTL TIMEOUT = TIMEOUT SERVICE ROUTINE 
; TIMEOUT = TIMEOUT SERVICE ROUTINE 
3 Functional description: 
; This routine is entered on device timeout. The action is to 
; shut the unit down. 
: Inputs: 
3 RS = UCB ADDRESS 
, ; IPL = DIPL 
: Outputs: 


-ENABL LSB 
TIMEOUT: : ; Timeout or powerfail 
64 AS 03 AA BICW #UCBSM_TIM!UCBSM_INT,UCB$W_STS(R5) ; Disable timer 
ASSUME UCBS$V_XQ_INITED EQ 0 
32 68 AS ED BLBC UCBSW"DEVSTS(RS) ,20$ ; Br if not inited 
53 01 11 += «78 ASHL  #XQ_ SOFT V POWER+16,41,R3 ; Assume powerfail | 
1¢ 64 A5 O05 €0 BBS #UCBSV_POWER ,UCBSW_STS(R5),10$ ; Br if powerfail 
DEV_TIMEOUT:: ; Hardware device timeout 
54 24 A5 00 MOVL UCBSL_CRB(RS) ,R4 ; Get CRB address 
ASSUME IDBSL_CSR 
53 _2C B4 0 MOVL @CRBSC_INTD+VECSL_IDB(R4),R3 ; Get CSR address 
OE AS 02 80 MOVW #XQ_CSR_M_RESET,CSR(R3) ; Stop the device 
54 10 A4 09 MOVL CRBSL_AOXSTRUC(R4),R4  ; Get CDB address 


; Br if no C 
ASHL #XQ_SOFT_V TIMEOUT+16,#1°R3 ;_ Indicate timeout 
SETBIT #xmSv S1S_ TINO, CDB_L_DEVDEPEND (RS) ; Set error status 
10S: MOVW #XQ_CSR_M~ERR,R ; Indicate fatal error 
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55 DD PUSHL R5 ; Save UCB address 
F746 =—30 6001 BSBW SCHED_FORK ; Schedule a fork process 
55 8ED0 600 POPL R5 ; Restore UCB address 
05 6003 20S: RSB 3; Return to caller 
6004 -DSABL LSB 
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cag TSBTTL ALLOC_CDB = ALLOCATE THE CDB 
; ALLOC_CDB = ALLOCATE THE CDB 
; Functional description: 


; Inputs: 

3 RS 
; Outputs: 
; RO 


ALLOC_CDB: 
PUSH 


UCB address 


Status return for request 


ALL other registers are preserved. 


#*M<R1,R2, ie . R5> 


— #CDB_C 


10$: MOVAB 


LENGTH 
G*EXESKLONONPAGED 


ucesi CRB(RS) ,R4 
2. CRBSL AUXSTRUC(R4) 

beach (R5) ,R4 

DDBS fp B thas. *R4 


; Initialize COB 


the enabled (ON) state. 


: The PADDING MODE and the ECHO MODE of 


ASSUME NMASC_STATE_ON EQ 0 
PUSHQ R2 
MOVCS #0, (R2),#0,R1,(R2) 
POPG = R2 
MOVL  R3,CDB_L_UCBO(R2) 

: Init CDB fork block. 

, ASSUME CDB_L_FQFL EQ 0 
ASSUME cDB LIFQBL EQ CDB_L_FQ 
CLRQ (R2T+ 
ASSUME CDB_W_SIZE EQ CDB_L_FQ 
ASSUME (CDB7B TYPE EQ CDB~W7S 


; This routine allocates and initializes the CDB. 


; Allocate a ~~ 

; Save registers 

; Get size of CDB allocation 
; Try to allocate CDB 

; Br if error 


; Get CRB address 
; Store CDB address 


; Store address of NI device's 
; unique hardware address 

; Position to next UCB 

; Continue if more UCBs 


the QNA will default to 


Save CDB, UCBO address 
Zero the structure 
Restore CDB, UCBO address 


; Save address of UCBO 
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1FC4 3 ASSUME CDB 2 L EQ CDB 
82 083302F4 8F DO 1FC4 bee MOVL #<<21P PLS ng aa tabee BeTDYNEC. _CDB>@16>!=- ; Set structure type and FIPL 
1FCB 6065 COB_C_LENGTA, (R2)+ ; and size 
1FCB 6066 ASSUME CDB-L-FPC Fa CDB_B_ FIPL+4 
82 F711 CF QE FCB 6067 MOVAB FORR_PROC ae ; Set fork process address 
50 01 QA FDO 6068 MOVZBL SoAsS$ NO ; Return success 
3E BA 1FD3 6069 90$: POPR #*M<R1,R2, Ra LAR R5> : Restore registers 
05 FDS 6070 RSB ; Return to caller 
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Ose O05 SHUTDOWN_QNA = SHUTDOWN QNA AND ALL UNIT ae ae 88; 35; 254 YORIVER. SRCIJXQDRIVER.MAR; 1 ° (56) 
1ED6 ° ee. -SBTTL SHUTDOWN_QNA = SHUTDOWN GNA AND ALL UNITS 
1EDS 2 a 5 SHUTDOWN. QNA = SHUTDOWN QNA AND ALL UNITS 
1FD6 e078 : Inputs: 
1FD6 6077 ; 
1FD6 on 78 : R4 = CDB address 
1FD6 6079 ; RS = UCB address of unit 40 
1FD6 6080 ; 
1FD6 6081 ; 
1FD6 ee $ IPL = FIPL 
1FD6 one : 
1FD6 4 ; Outputs: 
1FD6 6085 ; 
1FD6 et4) 3 R3-R5 are preserved. 
1FD6 6087 ; 
1FD6 6088 ; RO-R2 are destroyed. 
1FD6 6089 ;-- 
1FD6 6090 
1FD6 6091 SHUTDOWN QNA: ; Shutdown QNA 
00 £0 1FD6 609 6es #CDOB_STS_V_INITED,=- ; Br if QNA inited 
01 024A C4 1FD8 609 CDB 6. sTs¢ (Ra), 10$ 3 
05S FDC 6094 RSB ; Else, return 
1FDD 6095 
OOE8 8F 6B 1FD8 tts) 10$: PUSHR #*M<R3,R5,R6,R7> ; Save registers 
ire 2038 3; Shutdown QNA and reset controller status 
52 24 AS DO 1FE1 6100 MOVL UCBSL_CRB(R5) ,R2 ; Get CRB address 
1FES 6101 ASSUME IDBSL_ 
52 2c B2 DO 1FES $106 MOVL acrBsC INTD+VECSL_IDB(R2),R2 ; Get CSR address 
1FE9 610 DSBINT UCB$B_BIPL(RS) : Raise IPL for qnaster clear 
OE A2 O02 AB IFFO 6104 BISW #xQ CSR 8 mane agp 2 Disable devic 
024A C4 =F3 BF BA IFF4 6105 BICB er C2 FORK_P ; Reset all but needed bits 
1FFA 6106 CDB_ cre “h. Teen or CBB. BS sts TS(R4) 
wee ab 14 ENBINT lg ee to fork level 
a e195 3; Release the receive and transmit buffer map registers 
1FFD 6111 LRL R7 slot number 
1FFF 611g ASSUME CDB_L_RCVMAP+<4s<MAX, C rivets EQ CDB _L_XMTMAP 
1FFF 611 OVAB COB LRCVAA duit R6 ; Get address of _mappig slots 
003 6114 208: VL UCBSL~CRB(RS) . Get CRB addres 
907 6115 ASSUME VECS$W “RAPREGS 3" Zo EC$B -NUMRE 
007 ells ASSUME VECSB_NUMREG+1 EQ VEESBCD : 
007 611 VL URE) *TCRBSL. INTD+VECSW_ RAPREG(RS) Set mapping information 
00B 6118 BLSS 30$ none allocated 
00D 6119 TSTB CRBSL_INTD+VECSB_ DATAPATIICRS) Is there a datapath? 
010 6120 EQL 25$ ; if net - don't do purge or release 
O12 6121 PURDPR : ons the data path 
018 61 ¢ RELDPR : Release the data path 
4 6125 25$: RELMPR 3; Release the ace re register 
6124 MNEGL #1 ‘x0: ; Reset mapping inf 
6 6125 ASSUME MAK_C Vv EQ 8 
61 § 30$: CLRBIT R7, rbe'6 VREVMAP(RG) Clear mapping slot flag 
8 oi 5 AOBLSS #MAX_C “RCVSMAK C _XMT,R7, 50s: Loop if more map registers 


L 16 
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0 ! ¢! 3 i ; Release the PCBB map registers 
53 24 A5 00 8 1 6131 MOVL UCBSL_CRB(RS) ,R3 Get CRB address 
035 61 g ASSUME VECS-RAP neast Ee EQ VECSB_ NUMREG 
035 61 ASSUME vee $8 =NUAREG® Q VECSB_ DATAPATH 
0162 C6 «400 2035 6134 MOVL Bak “RINGM : x map info in CRB 
4 A3 039 6135 nat i. INSDeVECSU. *MAPREG(R Ps 
OA 13 2038 61 g BEQL ©: 508 ; Br if none 
0162 C4 D4 20350 61 CLRL CDB_L_RINGMAP(R4) ; No more mapping info 
bey 3 3 50s RELMPR ; Release the map register 
9 2179 ; Deallocate all receive buffers and complete all 1/0 request packets 
56 O0DC C4 9E 2047 614 MOVAB CDB_Q yi tee R6 ; Get address of first queve listhead 
57 06 3C 204¢ grag MOVZWL #CD - tA8 $,R7- ; Get number of ueues : 
53 00 86 OF O4F 6144 60S: REMQUE a(R6 vague 5 | next IRP/BUFFER 
79 «1D «22053 «6145 BVS : Br if none 
OA OA AS 91 2055 6146 CMPB RPSB_TYPE(R3) ,S*#DYNSC_ irP ; Is this an IRP? 
OA 13 2059 614 BEQL Br yes 
18 OA A3 91 058 6148 CMPB IRPSB_TYPE(R3) , S*#DYNSC ~tx8 Is this a CXB? 
09 13 205F 6149 BEQL $ r if yes 
sees 2139 BUG CHECK NOBUFPCKT,FATAL $ : fine, fatal error 
2065 9136 3 IRP 
2065 6153 ; 
FBSA 30 2065 6154 70$:  BSBW ABORT_PKT ; Abort the IRP 
E5 11 2068 6155 BRB 60$ ; Try for more 
206A 6156 ; 
206A 6157 ; CXB 
206A 6158 ; 
306A 6159 80$: § SDISPATCH CXB$B_XQ_FUNC(R3). TYPE=B,- 
06A 6160 ro 3 function action 
206A 6161 
spon oie¢ <XQ_FC_V_XMIT 100$>,- ; XMIT request 
06A 616 <XQ_FC_V_RECV 140$>.- ; RECV request 
206A 6164 <XQ_FC_V_INIT  100$>,- : INIT request 
206A 6165 <XQ_FC_V_STOP 100$>,- ; STOP request 
206A 6166 <XQ_FC_V_CHMODE 100$>,- ; Change mode request 
206A 6167 > 
07D 6168 . 
34 0198 BUG_CHECK NOBUFPCKT,FATAL ; Fatal error - not a valid IRP 
081 6171 ; 
+t o1%¢ 3; CXB - XMIT request 
81 6174 100$: ASSUME CXBSL_T_IRP €Q SABSL_T_UCB 
16 24 A3 EB 2081 6175 BLBS CXBSL_T m4 EE Br if not IRP address => FFI user 
3 4 . DO , 5 6176 MOVL CXBSL T-IRP : ates et IRP address 
0094 ¢ 09 9 6177 MOVL  IRPSL7XO_ RETUPCAS) . RO : Get SETUP mode buffer 
06 = 1 0 f 9178 BEQL 3 ay if not present 
00000000'GF 16 2090 617 JSB G*COMSDRVDEALMEM 3; Else, deallocate buffer 
FB29 = 30 Ms 6180 110$ BSBW ABORT_PKT ; Abort the IRP 
11 9 $1 1 BRB 3; Try for more 
98 61 ¢ 
098 6183 1208: =; 7 
844 ot : 3; This is an FFI user, return CXB buffer 
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16-SEP-1984 8 


WOVZWL C¥BSW_BOFF (RS) .R1 
ADDL R31 


MOVZWL XBUF_W_TYPE(R1),R1 
BSBW MATCA_Protye 
RO, 140 


BLBC . 
PUSHL 

MOVL SL_XQ_FFICRS) RG 
BEQL 

MOVZWL #SS$_ABORT,RO 

JSB af FISL_XMIT_DONE(R4) 
POPL RG 


BRB 60$ 


; No more FFI for CXB to complete 


POPL = RG 
RECV request 


MOVL _—R3,RO 
JSB G*COMSDRVDEALMEM 

BRB 60$ 

: Loop to next queue 

ADDL #8,R6 

SOBGTR R7.1060$ 

: Cleanup all 1/0 on all UNITS 
Rov. CB L_UCBO(R4) .R5 

MOVL  UCBSL_LINK(RS) RS 

B 190$ 

BSBM SHUTDOWN 

POPR #°M<R3,R5,R6,R7> 


Z Copy 
; Deallocate the buffer 
3; Try for more 


Pete Se Se Se Se Se Ge 
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Get offset to start of data 
Compute start of Ethernet header 
Get protocol type 

Find the protocol user 

Br if no UCB, drop buffer 


Save R4 

Get FFI block address 

Br if not there, drop buffer 
Set return status 

Complete the XMIT 

Restore R4 

Try for more 


; Restore CDB address 


CXB buffer address 


; Skip to next queue Listhead 
; Loop if more queues 


Get UNIT #0 UCB address 
Br if none, yet 

Get next unit's address 
Br if none 

Shutdown the UNIT 

Check if more UNIT's 
Restore registers 
Return to caller 


rc ne - —_ 
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/ V046- 00 SHUTDOWN = SHUT DOWN UNIT . green 4 EL EET? DRIVER.SRCJXQDRIVER.MAR;1 . (57) 
6227 ~SBTTL SHUTDOWN = SHUT DOWN UNIT : 
6 se -SBTTL SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYPE 
SHUTDOWN = SHUT DOWN UNIT 

SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYPE 

Functional description: 


This routine is used to shut down the XQ unit as a 
; SETMODE and SHUTDOWN. The action is to abort all | 


| 
| 
result of a | 
/0 for the unit 
and then to clean up the unit data base. | 
| 
| 


OOOCOCSOGDSOOOCOCOOCOOSOOOCOOOOOOOoO 
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. 
B 6058 
B 6230 ; 
BS O¢51 § 
B 6 ¢ 3 
B 6 ; 
B 6234 ; 
B 6235 ; 
B 6236 ; 
B 6237 ; 
B 6 8 ; 
B 6 : Inputs: 
B 6240 ; 
B 6241 ; R3 = IRP address (SHUTDOWN_PROTYP entry only) 
B 6 rh 3 Re = CDB address 
B 6245 ; 5 = UCB address 
B 6244 ; 
20EB 6245 ; IPL = FIPL 
B 6246 ; 
B 6247 ; Outputs: 
B 6248 ; 
B 6249 ; R3-R5 are preserved 
20EB 6250 ; 
2 4 ° 2) 3 RO-R2 are destroyed. 
5 B 6 38 SHUTDOWN. PROTYP: : ; Shut down protocol type 
04 €1 20EB 6254 BBC #UCBSV_ONL INE = ; Br if not online | 
19 64 AS 20ED 6255 UCBSW~STS(R55,10$ ; 
20F0 6256 ASSUME UCB$V_XQ_INITED EQ 0 | 
15 68 AS” E9 sor? 6257 BLBC UCBSW-DEVSTS(R5),10$ : Br if not inited | 
E1 20F4 6258 BBC #UCB$V_XQ_ SHARE ,- : Br if not a shared UCB 
11 68 A5 sur8 6 39 UCBSWIDEVSTS(R5) ,SHUTDOWN ; shutdown entire unit 
org 6361 3; Try to find SHR data structure 
E6OF 30 20F9 6 $8 BSBW MATCH_SHR 3; Check PID and CHAN 
0B 12 ae ? rt: BNEQ 10$ :; Br if NO MATCH, skip it 
are ° 68 3; Match found - clear inited bit and clean up all 1/0 on SHR data structure 
56 DD 20F 6268 PUSHL R6 3: Save R6 
56 =51 BP 100 6 4 MOVL R1,R6 ; Copy SHR address 
0290 30 2103 6270 BSBW  CLEANUP_SHR : Cleanup the SHR data structure 
56 BEDO 2106 6271 POPL R6 ; Restore R6 
05 132 ? i 10$: RSB ; Return to caller 
| 
| 10A 6274 SHUTDOWN: : ; Shut down unit 
04 €1 210A 6275 BBC #UCBSV_ONLINE,- 
04 64 AS : ¢ ° 4 UCBSW_STS(R5) ,5$ ; If BC not online 
10F 6 8 ASSUME UCBS$V_xQ JNITED EQ 0 
| 01 68 AS Fe 10F 627 BLBS UCBSW_DEVSTS(R5),10$ ; Br _ if UCB is inited 
BF ? i 5$: RSB ; It's not time to shut down, yet 
114 6 ; 
114 6 : ; If a power failure occurred, and the protocol has both initialized the FFI 
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7 
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= VAX/VMS QNA driver 16-SEP-1984 00:37:44 VAX/VMS Macro V04-00 Page 140 | XQDR | 
SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYP 5-SEP=-1984 69 :30:8¢ DRIVER.SRCIJXQDRIVER.MAR;1 . (37) Vv04=( 

interface and supplied an asynchronous error routine, then call back 

the protocol at this routine address with a status value indicating that 

“ a power failure had taken place. | 


0S €1 0$ BBC #UCBSV_POWER,- ; Skip notification if power failure 
19 64 AS UCB$W_STS(R55 ,20$ : did’ not occur 4 

- 54 DD PUSHL R4 ; Save COB address 

S54 018D C5 0 MOVL | atmetehamtdadaiet ; Retrieve FFI address | 
0D 1 BEQL 15$ ; Nothing to do if there isn't one 

52. 1C AG 00 MOVL FFISL_ERROR(R4) ,R2 ; Retrieve asynch error routine address 

Q? 1 BEQL 15$ : pot ne to do if there isn't one 

50- 0364 BF 3C¢ MOVZWL #SSS$_POWERFAIL,RO ; Indicate that a powerfailure occurred | 
62 16 JSB (R2) ; Call back the asynch error routine 
54 8EDO 15$ POPL RG ; Restore CDB address 


Start a 3-second timer to restart any UNIT needing automatic restart. | 
This restart timer only runs if the device was halted due to a fatal error. | 


Note, that the UCB multicast address List is purged which will nullify 
any restart operation that may be performed by the QNA driver itself (only 


f the user has specified any multicast addresses). 


~ 00C8 a 
43 68 AS 


/ 

0 
51 F4 BF 9A 
QO000000'GF 16 
36 50 ED 


| 

20$: PUSHR #*M<R3,R6,R7> ; Save registers 

BBC ; Br if this UNIT does not need 

UCBSW_ 3; automatic restart 

ASSUME IRPSC“LENGTH G C_LENGTH 

MOVZBL #IRPSC_LENGTH+ LENGTH,R1 ; Get size of IRP/TQE | 

JSB ; try to allocate a IRP/TQE 

BLBC R ; Br if failure - too bad | 
ASSUME IRP$Q_STATION GT TQESC_LENGTH : 

BISwW #UCBSA_XQ_INTERLOCK,- ~ ; Interlock the RESTART bit | 

uCcBSW_BEVSTS(R5) 3 | 

} 


ASSUME TOQESB_TYPE EQ TOESW_SIZE+2 
ASSUME TQESBTROTYPE EQ TOESB TYPE+1 
MOVL  #<<DYNSC_TQE916>!<IRPSC_LENGTH#TQESC LENGTH>>,= ; Set STRUCTURE 


4000 8F A8 
68 AS 
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3 
é rN 3 TQESW SIZE (R2) ;__TYPE an 
00CB C2 5 dO 3 MOVL R5, TQESC_LENGTH+IRPSL_RBOFF (R2) ; Save UCB address in IRP 
3 PUSHQ  R4 ; Save R4, RS | 
55 DO OVL R2,R5 : Copy TQE address | 
00000000 01¢9C380 BF 7D 3 MOVG  #RESTART_DELTA,- : Set the delta time 
20 AS TQE$Q_DECTA(RSS : | 
53 FCE9 CF 9E § ; MOVAB W*RESTART_ROUT,R3 : Get address of RESTART routine | 
01 90 Vv #TQESC_SSSNGL,=- 3; Set the request type 
2c AS 7 TOESL_ROPID(RS) : | 
F183 = 330 7 BSBW FORK_TIMER ; FORK to startup the timer 
? POPQ RG ; Restore R4, R5 
0511 BRB 23$ : Contine 
7 228: CLRBIT #UCBSV_XQ_RESTART,=- ; Restart is not possible! 
7 UCBSW"DEVSTS(RS) 
0002 ¢5 = - 2328 ef B0 23$: MOVW #INIT_C_QUOTA ycesy XQ_HBQ(RS) ; Reset hardware buffer quota 
6445 23 AA BICW #UCBSA_INT'UCBSM POQERT- 
4 UCBSM_TIM,UCBSW_STS(R5) ; Reset device status 


ee eee ——_ Nee ee LL La...“ as —_ } 
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| V04-000 SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYP 5=-SEP-1984 20:54 DRIVER. SRCJXQDRIVER.MAR; 1 ssa 
| 68 AS) 11. «AA 18 6 41 BICW #UCBSM_XQ_INITED!- No longer inited 
1 4g Uceer XQ"RUN, UCBSW Devsts(Rs) or running 
192 634 CLRBIT #XMSV sts. “ACTIVE ,UCBSL DEVDEPEND(RS).; Clear active bit | 
05 0114 C4 10 ~«€1 197 6344 BBC #XMSV~ERR FATAL, CDB L _BDEVDEPEND(R 4) »és ; Br if not FATAL 
18 e ve SETBIT Phat “ERR_ “FATAL, UCBSL~ _DEVDEPEND(RS) ; Else, indicate FATAL 
| 1A 6 ‘3 Reset UCB multicast address List 
| 0214 C4 be o} a ? $3 25$ ened RS CDOB_L_PRMUSER(R4) $ . 7s. ~— the PROMISCUOUS user? 
P a } 
0214 C46 D4 21A9 6351 CLRL COB_L bert wrk : Else, clear the PROMISCUOUS user addr 
01 90 21AD 6 26 MOVB PNMASE. § E_OFF,= 3 Don't forget about the CDB 
0248 C4 1AF 6 C0B_B PR MCRGY : pareneter 
01 2 30 180 6354 BSBW TOP_IRP ; Build an IRP to RESET hardware mode 
EO 2185 6355 27$: BBS #UCB$v_x@_RESTART ; Br if this UNIT is restarting 
16 68 AS 1B7 6356 UCB$W_DEVSTS(RS), Sag: don't clear multicast List 
1BA 6357 | PUSHQ Ri 3; Save R4, RS 
00OES C5 94 21BD 6358 CLRB UCBSB_XQ_MULTI(R5) : No more multicast addresses 
00 O0&7 CS 00 2C 21C1 6359 MOVCS #0,UCBSG_XQ_MULTI(R5),#0,- sre the structure 
OOE7 C5 0048 8F 1C7 6360 FOSHAK “MALT, UCBSG_xa “mucT1 (RS) 
$1c8 636 POPQ R4 : Restore R4, R5 
g100 e368 : Reset CDB multicast address List, Flush all attention ASTs. 
4dE 30 109 6365 28S: BSBW ADD_MULTI ; Re-calculate Sul tteast address List | 
54 DD 1D S08 PUSHL R4 : Save CDB addre 
57 0oco C5 GE 105 6367 30$ MOVAB UCBSL_XQ_AST(R5) ,R7 3; Get address on “AST Listhead 
50 67 9 1DA oaee MOVL (R7),RO ; Anything in List? 
1B OO 10D 6369 BEQL 4 ; Br if not 
56 22 A0 ; 1DF ogi MOVZWL ACBSL =RASTSIOCRD) . Rg : Force channel match 
52 34 AO «3C «D1E3 6371 MOVZWL ACBSL~KAST#+12(RO).R : Get process index | 
54 00000000'GF 00 21E7 o376 MOVL G*SCHSGL_PCBVEC, a ; Get PCB address vector address 
54 644 DO 21EE 637 MOVL (R4)CR2I7R4 : Get PCB address | 
anneal 19 ite o3re a GCOMSFLUSHATTNS ; Flush AST 
54 BED) IFA 6376 40s: POPL RA : Restore CDB address | 
TED 6 28 + Complete all RCV IRPs for this unit 
aif 6380 * ASSUME UCBSC_XQ_QUEUES-1 £0 3; One € queue for shared users 
53 00A8 ¥ or He ? 81 45$: 7 ee aucesa_ x6 -RCVREQ(R5),R3 ; se TY 
PY r none 
F9BB s30 04 6 Hf BSBW eepet pat 3; Abort the 1/0 request 
F4 11 ti ° t3 BRB 45$ 3; Get next IRP 
09 6 $; ? Complete all XMIT CXBs for this unit 
53 0080 Bs oF 09 6 88 bos: REMQUE 9 — XQ_XMTREQ(RS).R3 ; Get CxB 
| r none 
| 15 6390 ASSUME CXBSL_T_IRP £0 XBSL _Tuc 
12 24 a3. €9 10 6391 BLBC CXBSL-T ~IRP(R »,53$ ; Br if IRP address 
54 DD 14 6 35 PUSHL R4 ; Save CDB address 
54 9180 C5 0 16 ° 9 MOVL UCBSL_xQ FPTERS) RG ; Get FFI block address 
2c Be 18 94 MOVZ2WL #SS$_ABO ; Set status return 
14 Bs 6 IF 6395 JSB arr ISL arnt _DONE (R4) : Complete CXxB 
| 4 BED g1 9396 POPL = R4 ; Restore CDB address 
—e3 11 4 639 BRB 50$ ; Get next CXB 
| 
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639 
dO g $338 53$ MOVL CXBSL_T_IRP(R3) ,R3 ; Get IRP address 
09 A 6400 MOVL [RPSL _XO_SETUP(RS) .RO : Get SETUP mode buffer 
a F 6401 BEQL 4$ ; Br if none 
00000000 ' GF 18 1 e788 JSB S*COMSDRVDEALMEM ; Else, deallocate the buffer 
F988 = 3 7 6405 548: BSBW SBORT PRT ; Abort the I/0 request 
| 11 " eet BRB 50$ 3 Get next CXB 
: 2788 ; Deallocate all receive CXBs | 
j . 
52. 00A0 DS OOF C 6408 55$:  REMQUE @UCBSQ_XQ_RCVMSG(R5).R2 ; Get message buffer | 
4 1D 41 9008 V ; Br if none 
4e AS AO 43 6410 ADDW UCB$W_DEVBUFSIZ(R5),- ; Restore quota 
0ocs8 ¢5 <8 rahe UCBSW_XQ_QUOTA(RS5) : 
49 gig $ The buffer may be smaller than the normal message size, if this 
49 6414 ; is a cloned buffer for the promiscuous user. Therefore, we must 
$¢3 6415 ; check to make sure the buffer is large enough to be returned 
$¢3 orig s the the device's receive buffer pool. 
Al 2249 6418 ADDW3 #CXBSC_HEADER+= ; Calculate size of "normal" 
ssea 6419 CXB$C_TRAILER,- : receive buffer 
50 0110 C4 O04C BF 24A 6420 CDB_W_BSZ(R4) ,RO r 
08 A2 «50 «BI $s2l 6421 CMPW RO, CXB$wW_SIZE(R2) : Can buffer be returned? | 
05 = 12 55 64 § BNEQ ; Br if not, delete buffer instead 
FIE6 30 2257 64 BSBW ADDRCVLIST 3; Try to add to receiver List 
AD 11° sea 6135 BRB 50$ ; Loop for more 
50 52 400 $e 6426 60$: MOVL R2,RO $ ceey buffer address for deallocation | 
QO000000'GF 16 ss2t 6427 JSB 5 :OntOR OSA. NEN ; Deallocate the buffer 
A211 $508 04 g BRB 0$ 3; Loop for more 
sof 6430 3; Cleanup all SHR structures if fatal error 
03 =: 267 ec32 70S: BBC #UCBSV_XQ_SHARE,- ; Br if not a SHARED UCB 
30 68 A5 269 643 UCB$W_DEVSTS(R5),100$__—; 
56 00C4 C5 09 26C 64 34 MOVL UCBSL_XG_DEFUSR(R5) ,R6 : Get default SHR structure address 
0B 1 71 6435 BEQL 0$ ; Br if none 
0120 30 73 6436 BSBW CLEANUP_SHR ; Else, cleanup the structure 
10 E1 2276 6437 BBC #XMSV_ERR_FATAL,- ; Br if not a fatal error 
03 44 AS 78 6438 UCBS$L_DEVBEPEND (RS) ,90$ 
195 30 7B 6439 BSBW peLer SHR 3; And delete the structure | 
56 0098 C dO 7E 6440 908: MOVL UCBSQ_XQ_SHARE(R5),R6 ; Get address of next LIMITED user 
0098 C5 36 D1 8 441 CMPL oR yCBSO_KQ_SHARE (RS) : End of List? | 
4 13 44 BEQL 126 : Br if yes, don't restore quota (yet) 
0109 30 228A 644 BSBW  CLEANUP_SHR : Cleanup the | | 
10 «€1 D 6444 BBC #XMSV_ERR_FATAL,- ; Br if not a fatal error 
EC 44 AS F 6445 UCase DEVBEPEND (RS) ,90$ 
F £0 2 644 BBS #UCBS7_xXQ_RESTART,- ; Br if this UNIT is re-starting 
E7 68 AS 94 644 UCBSW_BEVSTS(RS) ,90$ | 
0179 30 97 644 BSBW DELETE _SHR 3 Else, delete the structure 
£ 11 9A 644 BRB 9 ; Look for more 
9C 6450 ; | 
$5 645 ; Restore quota 
OF €0 229C 64 g 100s: BBS #UCBSV_XQ_RESTART,- ; Br if this UNIT is re-starting | 
5A 68 AS 9E 6454 UCBSW_BEVSTS(R5) ,140$ | 
| 
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6488 : Decrement UNIT count on CDB and cleanup CDB if last unit 


= VAX/VMS QNA drive 16-SEP-1984 37:44 VAX/VMS Macro V94-00 Page 143 
SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYP eye EEE? YOR RIVER. GREINGLRIVER. MAR;1 | . (57) 
50 A oS Al 6455 nove UCBSL_XQ_PID(R5),RO ; Get PID of last starter 
51 80900000" § A6 g136 GO SCHSGL “PCBVEC RI 3; Address PCB vector 
Pag RB BR | BR GRIST, | # Ser Feh of ote 
0088 ee BS or28 UCBSL-x0_PID(RS) 3 Still a 
1 is B7 6460 BNEQ $ 3; If NEQ 
50 0080 € 4 BY 6461 MOVL PCBSL_JIB(RO) ,RO 3; Get 18. address 
51 00C8 ¢ C 228 646¢ MOVZ2WL UCBSW-XQ_QUOTA(RS),R1  : Convert to Longword 
0 AO 51 (CO 22C3 646 ADDL 1, JIB$SL“BYTCNT (ROS ; Return byte count quota 
4 a0 51 C0 C7? 6464 ADDL R1 hg MAU gb 3; ..and byte Limit quota 
00c8 CS) «B4O22CB 6465 CLRW UCBSW_XQ"QUOTA(RS) S Prevent this from being 
cr e788 3 returned again 
: Delete the or point-to-point mode 
of CeeR : Delete the STARTUP IRP f int-t int mod 
50 0191 C5 0 CF 6470 i20$ MOVL YCBSL_ XQ_STIRP(R5),RO ;% Get the startup IRP address 
OA 1 D4 6471 BEQL 3% Br if none 
0191 C5) 04 D6 O48 CLRL UCBSL_XQ_STIRP(RS) 3% ALL done 
O0000000'GF 16 BA eet? JSB G*COMSORQDEALMEM 3% Deallocate the IRP 
EQ 6475 : If there is an FFI block and the SHUT_DONE routine is set, then 
44 on78 : 3 notify the FFI user that shutdown is now complete. 
50 018D C5 09 2e 6478 130$:  MOVL UCBSL_XQ_FFI(RS) ,RO : Get FFI ablock address 
 —s ES 647 QL 140$ ~ :; Br if none 
0180 C5) = 4 E7? 6480 CLRL UCBSL_XQ_FFI(RS) : fleane FFI interface 
51 0 1 0 4 ate sp tbat “Mor FOONE CRO), R1 ; get geeress of routine 
; Br ne 
54 DD Fl 64 5 PUSHL R4 : a CDB addres 
54 50 00 F3 6484 MOVL RO,R4 § Cop FFI block "adérens 
61 4.18 3266 S485 JsB RM) S Call beck FF1 user 
54 BEDO re ety: POPL R4 3 et Be. CbdB FF 
3216 
se 
FB 
grr 
01 
304 
308 
309 


6489 ; 

6490 140$: DECB CDB_B_UNTCNT(R4) : One Less unit on CDB 

6491 BNEQ ; Br if more 

649 BSBW SHUTDOWN _QNA ; Else, n- ot FE entire QNA 
6493 150$: POPR #°M<R3,R5,R7> ; Restore registers 

eet: RSB 3; Return to caller 
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-SBTTL BLO _STOP_IRP = Build an IRP to reset promiscuous mode 
BLD_STOP_IRP = Build an IRP to reset the promiscuous mode 
Functional description: 


This routine will allocate and build an IRP to reset the hardware mode 
from promiscous. 


Inputs: 
R4 = COB address 
RS = UCB address 
Outputs: 
RO, R1,R2,R3 are destroyed. 
-ENABL LSB 
BLD_ STOP_IRP: ; Build an IRP to reset hardware mode 
: NOTE = we must use EXESALONONPAGED to allocate the IRP because the other 
3 routines reset the IPL to ASTDEL. 
; BBS #XMSV_ERR_FATAL, ; Br if fatal error, 
COB_L ~DEVBEPEND (RG), 10$ : ignore reset of mode 
MOVZWL #IRPS$C_LENGTH,R1 ; Set Length of IRP 
JSB G*EXESRLONONPAGED : Try to allocate an IRP 
BLBS RO” 208 : Okay if buffer allocated 
10$: RSB 3; Else, too bad if we can't do it 
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m 
o 
POPIPPIPYIPIPINIPINININIPININIPIPINIPINININIPINIPIPINDINPIPUNIPIPININIPININIPINIPIPININIFININY ot 
WAWAAAA AAA AAA AAA NAAN AANA AAA AANA AANAAANAWNAAAAA OO 
FS FWUWIWIWIWMIWAIAIININININ 2 2 $$ “DODOOOOCODOOOOOOOOOOOOSCOSOSOOSO US 
MMO COCOONS S AK TNOOFSNUMMIO SL "DOOOOOOVOoVowVowowowoowowooooooono i 
PD2X_EAXAAAA AA AAA AAA AAA AA AAA AAA AAA AAA AAA AAAAAA AA AO 
DVD PV PUPP VSP IVS IVT SV SUSIE PUSS USUSVSUSISVSUSIOTSISISIISIO ££ 
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PRO ODNAUES WIN $$ O ODNAU EWN 9 OONAULS WN OOONOULS WO OOon 


20$: MOVW R1, 1RP$W_SIZE(R2) ; AP in the size field 
5C BSBB RP ae a template IRP 
OC AS = 39°AF MOVAB B*DELETE BLOCK, IRPSL_ Pipir , 3 fh. return address from IOPOST 
F043 BSBW SETUP_MOBE ; Allocate setup mode buffer 
05 50 BLBC R : Leave on error 
03 MOVB #xa_F : Set function Pegusst. 
20 A2 CxBSB. Ra7 Func tR2) 3: looks Like a 
05 RSB ; Return to queue request to DEQNA 
» 2 ww 70$: MOVL R3,R0 3 Copy IRP adgress 
03 =«i7 BRB 90$ 3; Deallocate | | 
DELETE_BLOCK: ; Deallocate a data structure 
50 55 00 MOVL R5,RO ; Get address of structure 
00000000'GF 17 90$: JMP G*COMSDRVDEALMEM : Deallocate the structure 
-DSABL LSB 


10 

: C4 

51 00C4 8F 
00000000" GF 
01 50 
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IRP = Build a point-to-point st 5-SEP-19 0:54 LORIVER. SREIXODRIVER.MAR: 1 
i -SBTTL BLO_STRT_IRP = Build a point-to-point startup IRP 
: BLD_STRT_IRP = Build a point-to-point startup IRP 


XQD! 
V04: 


; Functional description: 


; This routine will build an IRP to perform a datalink startup with a | 
; remote system. 


; Inputs: 
: R2 = IRP address 
CDB address 

UCB address 


; Outputs: 
RO,R1 »R2,R3 are destroyed. 


LD_STRT_IRP: 3% Build a startup IRP 


: We will use the back part of the IRP to build the data message. The 
; data message only contains the standard header plus one byte of “XAA. 


: R4 
: R5 


DD DPEDP DED DDD DDD DDD DD DD DDD DPA PPA AAA AAA AAA AAA OO 
BIE WN O ODNAME WN OO ONA UE WIN O ODNAUE WN OOONOAOUSE 


ASSUME IRPSC_XQ_STD+17 LE IRPSC openers 3% 14 artes of header + 
33 2 bytes of count + msg type. 
3c.)=—Cfs«*é‘10 BLD_IRP 3% putt the I RP 
52 60 A3_ 9E MOVAB = IRPSC_XQ_STD(R3),R2 3% Point to dete portion of IRP | 
oocc cS) 7D V UCB$G_XQ_DES(R5),=- 3% Store destination address 
62 XBUF_G _DEST(R2) 7% 
OC A2. 0660 8F BO movw #xQ_C STPRO,XBUF_W_TYPE(R2) :% Store protocol type 
OE A2 4 BO MOVW 1,XB0F w_SiZE(R2)~ 7% Store message size 
10 A AA 8F 90 MOVB #*XAA,XBUF_W_SIZE+2(R2) :% Transmit one start byte of data 
05 68 AS 05 EO BBS #UCBSV_XQ_ START, UCBSW_DEVSTS(R5S),50$ ;% Br if start 
10 Ag 8F 690 MOVB #°XAB,RBUF _W SIZE+2(R2) :% Transmit one stack byte of data 
OC A 7F°AF 69 50$: MOVAB 6*°90$,IRPSC_PID(R3) 3% tere f return addres 
1Aa3 01 «9 68 MOVB #XQ_FC_V_XMIT,IRP$B_XQ_FUNC(R3) ;% Set function request | 
6F ASSUME XBUF_C”HEADER EQ xBOF a SIZE 
11. +B0 ¢f XBUF_C HEAD R+3,- “3% Set data size 
A3 1 IRP$W- BENT (R35) 33% 
3C A3 3 b0 3 MOVL R2, IRP$L_XQ_SYSBUF(R3) ;% Set buffer address 
00E0 04 6 OF 7 INSQUE tas) @CDB_Q-XMTREQ+4(R4):% Insert transmit request | 
114 0 7C BSBW XMT _ALT_S START 3% Startup transmit process 
05 7F 90$: RSB 3% Return to caller 


| 
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“v06 wht BLD_IRP = Build an *TRP routine “SEP=1984 80; 30: 754 CDRIVER.SRCIXQDRIVER.MAR; 1 i, | v04 
| e388 = -SBTTL BLD_IRP = Build an IRP routine 
| e844 ; BLD_IRP = Build an IRP routine 
| 6399 ; Functional description: 
6594 | 3; This routine will build a simple IRP and allow = caller to fill in the 
0232 3 : function requested and chen queue it to the DEQN 
69 g2g9 : : Inputs: | 
6598 ; Re = IRP address 
§° 9238 3 3 R5 = UCB address 
80 e600 ; Outputs: 
80 0606 ; RS = IRP address | 
3 6605 ; RO-R2 are destroved. 
$85 ety 3 R4,R5 are preserved. | 
380 6606 BLD_IRP: : Build an IRP 
53 82 7E 2380 660 MOVAQ (R2)+,R3 ; Save IRP address, skip to size field 
3 6608 ASSUME IRPS$W_SIZE EQ 8 
3 6609 ASSUME IRPSB_TYPE EQ IRPS$W_SIZE+2 
383 6610 ASSUME IRP$B_RMOD EQ IRPSB-TYPE+1 | 
82 BS 2383 6611 STW  (R2)+ ; Skip SIZE ; | 
82 OA B80 2385 o61¢ OVW #DYNSC_IRP,(R2)+ Make it look Like an IRP 
388 661 ASSUME IRPSL_PID EQ IRP$B_RMOD+4 
388 6614 ASSUME IRPSL_AST EQ IRPSL_PID+4 
82 7C 2388 6615 LRQ (R2)+ Clear PID, AST 
38A 6616 ASSUME IRPSL_ASTPRM EQ IRPSL ast+4 | 
8A 6617 ASSUME IRPSL_WIND EQ IRPSL *ASTERM44 
82 7C¢ 38A 6618 LRQ (R2)+~ Clear ASTPRM, WIND 
38¢ 6619 ASSUME IRPS$L_UCB EQ IRPSL _WIND +d 
82 55 00 8C 6620 VL R5,(R2)+ Store UCB address 
38F 6621 ASSUME IRPSW_FUNC EQ IRPSL uceed 
38F 66 § ASSUME IRPS$B_-EFN EQ IRPSW FUN C+2 
Sear 66 ASSUME IRPS$B"PRI EQ IRP$B- EEN] 
38F 6624 ASSUME IRPSL_IOSB EQ Q IRPSB _PRI+1 
82 7C¢ 38F 6652 LRQ (R2)+ 3 er FUNC, EFN, PRI, IOSB 
391 6626 ASSUME IRPSW_CHAN EQ IRPSL 10SB+4 
391 6627 ASSUME IRPS$W_STS EQ IRPSW CHAN+2 
391 6628 ASSUME IRPSL_SVAPTE EQ IRPSW STS+2 
82 7¢ 91 6629 LRQ (R2)+ peor CHAN, STS, SVAPTE 
93 6630 ASSUME IRPS$W.BOFF EQ IRP$L pels | 
93 6631 ASSUME IRPS$W_BCNT EQ 1Rpsu- BOF F+ 
93 66 § ASSUME IRPSL_BCNT EQ IRPS 
82 7C¢ 93 66 CLRQ (R2)+ - Clear BOFF, BCNT 
0S 2395 6634 RSB 3; Return to caller 
396 6635 
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96 6637 -SBTTL CLEANUP_SHR = CLEANUP ALL I/0 ON SHARE DATA STRUCTURE 
2 28 8 ne -SBTTL DELETE_SHR - DELETE SHR DATA STRUCTURE 
96 6640 ; CLEANUP_SHR = CLEANUP ALL I/0 ON SHARE DATA STRUCTURE 
96 6641 
9 peek ; This routine aborts all read request in progress and return all message 
. i oh 3; buffers back to the COB structure for re-use. 
3 ests 3: Inputs: 
96 gee? 3 R4 = COB address 
3 9668 3 R5 = UCB address 
2 eet 3 R6 = SHR address 
36 $62 3 IPL = FIPL 
3 6658 3 Outputs: 
336 6655 ; RO-R2 are destroyed. 
$00 2628 : ALL other registers are preserved. 
396 6658 CLEANUP_SHR:: ; Cleanup all 1/0 on SHR structure 
53 oD 44 $822 PUSHL R3 ; Save R 
398 6661 IF DF POINT 
| 57 oD 4 9666 PUSHL R7 7% Save R7 
$9A ogee 3: Complete all waiting transmit IRPs 
57 9980 CS O9E 390 6666 i$: MOVAB UCBSQ_XQ_XMTREQ(R5),R7 ;% Get address of XMIT wait queue 
5 67 DO 239F 6667 MOVL (R7),R3 3% Travel queue 
57 53—Coé=# Ae 6668 28: CMPL = R3,R? 7% At end of queue? 
“9 13 AS 6669 BEQL $ 3% Br if yes 
50 244A dO A? 6670 MOVL CXBSL_T_IRP(R3) ,RO 3% Get (presumed) IRP address 
AB 6671 ASSUME CXBSL_T_IRP EQ CXB$L_T_UCB 
07 50 =«2«B AB 667 BLBS R 3% Br if not IRP address, only one chan 
10 A6 «628 AO «Bl «OOSAE (667 CMPW RPSW_CHAN(RO),SHR_W_CHAN(R6) ;% Same as SHR chan? 
20 12 6674 BNEQ :% Br if not, else 
53 63 «OOF 6675 4$: REMQUE (R3),R3 '% Remove CXB from List 
15 50 £8 8 6676 BLBS  R0,6$ '% Br if FAST interface 
53 29 dO 667 MOVL RO,R3 37% Else copy IRP address 
50 0094 ¢ 00 6678 MOVL RPSL_XQ_SETUP(R3),RO :% Get SETUP mode buffer 
06 = «1 C3 6679 BEQL $ 32 Br if none 
00000000 ' GF 18 C yee JSB G*COMSDRVDEALMEM 7% Else, deallocate the buffer 
F7F4 833 CB 6681 5$ BSBW ABORT_PKT 3% Abort the 1/0 request 
CA 11 CE 66 ¢ BRB 1$ 7% Look for more 
54 go DO 66835 6$ PUSHL R4 7% Save R4 
a C D2 6684 MOVZWL #SS$_ABORT,RO 33 getup error return 
54 0180 CS DO 23D5 6685 MOVL ucest XQ FFICRS).R [% Get FFI block address 
14 84 16 23DA 66 6 JSB af F 1SC_XAIT_DONE(R4) :% Complete the XMIT CXB 
4 8ED0 DD 66 POPL R4 3% Restore R4 
Bs 11 EO 66 3 BRB 1$ 3% Look for more 
53 6 00 E2 6689 8$: MOVL (R3),R3 7% Travel Link 
gS 1 ES 6690 BRB 5$ 7% Check for_end of queue 
7 8ED0 E7 6691 9$: POPL Re 3% Restore R7 
EA 9026 -ENDC 
EA 669 
| 
| 


== ss 
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hve tie DELETE. SHR - DELETE SHR DATA STRUCTURE =$Eb=1382 Ob: 3hi ee DRIVER. SRCJXQDRIVER.MAR; 1 (6 | 
| EA 6694 ASSUME SHR_C_QUEUES EQ 2 | 
| EA 636 : Complete all IRPs for this structure | 
| EA ios: : t IRP | 
| 5320 8 oF EA $893 10s: REMQUE 9SHR_Q_RCVREQ(RG) .R3 : i rene ae | 
| F 0 BSBW ABORT_PKT : or e 
Free 7 : 6701 ‘ BRB it 3 Get next IRP | 
| F 67 § > Deallocate all message blocks | 
508: P ; Get message buffer 
| 52 18 B6 oF FS 67 5 20S: REMQUE QSHR_O_RCVMSG(RO) R2 ; Get messag | 
te Ag AO FB 6707 Ueey PEO oT eet ; Restore quota | 
00C8 Se 30 101 $709 BSBW AbORCVC TST 7 : Try to add to receiver list 
F 11 404 6710 BRB 20$ ; Loop 
55 sep0 $406 6711 308: POPL RS ; Restore RS | 
05 2409 orig RS | 
ry ori s++ 
40A 6715 ; DELETE_SHR = DELETE SHARE DATA STRUCTURE 
40k er? ; This routine deallocates the SHR data structure to system pool. 
40A ort8 3 Inputs: 
$408 org : RS = UCB address | 
40A o7s¢ : R6 = SHR address 
4 A ro 
RUE: an erin | 
40A o7s¢ ; Outputs: 
40a 6728 : RO-R1 are destroyed. 
40A ors 3 ALL other registers are preserved. | 
ton 8o3) BEL : SHR data structure 
40A 6731 DELETE_SHR:: : Delete Ss R data structure 
| 00C4 “s°° 82 a ton i OOPL Rs UCBSL.X0_DEFUSRCRS) : Ts" ehis. the default user? | 
1¢ 13 2412 6734 BEQL 0 ; Br y seme tenes | 
nn ieee se YA a7 Sse ie pecmmpmtiaens nll fh mee hang: ae | 
ie 4 tle ef $ 10$: CMPL RO,RI 3; Back to front of List? 
" 23 S tis ef 8 . BEQL 90$ 3 A ss Sone Found | 
50 56 D1 2421 67 CMPL R6,RO : Is iy ot ? | 
28D Se5e ere SevE e0f RO : ar yet next in queue 
| ” e¢ 0? t § or B 10$ ° 3 ene try ll Kies 
: ructu 
| ” §? of " e eras ane BRB ity’ f° ; And delete the structure 
: R5) 3; No more default u 
ore aa Be 8 eres 28S; OudwL SHR TTPIDCRO) RON «= Gee BID SHR structure 
| 38 o00o'er 6 8 o729 ; MOVL G*SCHSGL_PCBVEC,R1 :; Address PCB vector 
” 009 6189 4 t F 6748 MOVL (RIDER 1nd : Get PCB of owner 
| 1 2643 674 CMPL  PCBSL_P 7 
| ge p4 , 446 6750 SHR E-PID(RG) ; Still there? 
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Rett DELETE. SHR = DELETE SHR DATA STRUCTURE g73EP Pes 1984 88: 34 77) DRIVER. SREIXODRIVER.MAR;1 | (61) v0e 
18 3 448 67 BNEQ 0$ 3; If NEQ 
| 50 0080 C 4 44A 67 MOVL PCBSL_JIB(RO) RO 3; Get 18 eédrese 
| 1 AG 44F 67 MOVZWL SHR_W-QUOTA(R6) ,R1 ; Convert to longword | 
| OA C 4 ; 754 DDL  —-R1, JIBSL_BYTCNT (RO) ; Return poyte sont quota 
SA Bea: 4 755 ADDL R1,JIBSL_BYTLM(RO) : .-and byte Limit quota | 
0c8 C 1 =A 4 7 § SUBW R1,UCBSW_xa "QUOTACRS) ; Decrease as current quota 
188 § 1 A 4 7 SUBW RUE BS XQ-TOTQUO(RS5) ; and the total quota 
0 66 «(OD 4 7 3 60$ MOVL R6,R 3 Copy SHR otructurs address 
00000000'GF 1 rb: of) JMP G*COMSDRVDEALMEM ; Deallocate the structure 
46E 6761 : 
46E 9796 : Bug check on error 
46E 676 
GCE 6764 §0$:  BUG_CHECK NOBUFPCKT, FATAL | 
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vOu=000 CANCEL = CANCEL 1/0 ON UNIT ~3Ep-1986 00:20:54 DRIVER.SRCIXODRIVER.MAR;1 > (62). vor 


$f $766 2 ~SBTTL CANCEL = CANCEL I/0 ON UNIT | 
4? 6768 : CANCEL = CANCEL 1/0 ON UNIT 
of 670 : Functional description: 
f orte : This routine is used to cancel specific or all 1/0 pending on an XQ unit. 
$05 S00 : Inputs: 
47 6776 : R2 = Channel index number 
47 or! : R4 = PCB address (or zero) 
47 778 ; R5 = UCB address | 
472 6779 ; R8 = Cancel reason code (CANSC_DASSGN or CANSC_CANCEL) 
a5 Se 
47 678¢ : IPL = FIPL | 
47 sfes ; Outputs: | 
472 6786: R3-R5 are preserved. 
47 th : RO-R2 are destroyed. 
472 6788 ; 
i583 | 
472 6791 CANCEL:: 3 Cancel 1/0 
0008 8F BB 247 $736 PUSHR #*M<R3, oes aot og ; Save registers 
E1 2476 679 BBC #UCBSV_X ; Br if not a shared UCB 
1A 68 A5 478 6794 UCBSW~ ~peUSTScRS). 2$ =: perform regular $CANCEL | 
478 6796 : Try to find SHR data structure | 
013D 30 2478 6798 ; BSBW FIND_SHR ; Check PID and CHAN 
15 12 rt 43 i444 BNEQ 2s ; Br if NO MATCH, maybe Last SDASSGN | 
2480 ett : Match found - clear inited bit and clean up all 1/0 on SHR data | 
rt ttt 3 structure. 
tbo 6804 : We will Delete the SHR structure if this is a SDASSGN function 
480 6805 ; request. We will get this function when called from SYSS$DASSGN 
$38 O86 3 system Service and so we will have 7. corete the SHR structure 
480 ret : and decrement the reference count. that the reference count 
480 6808 ; can never reach zero. Therefore, SYSSDASSGN will decrement the 
4 ets : epterence count on exit and we will be called again. This time 
4 6810 ; there will be no match on the PID/CHAN and so the UCB will be 
" . ° Vy : cleaned up and deleted. 

56 51 DO 2% & ig 2 MOVL R6 : Copy SHR address 
54 26 AS DO 2683 6814 MOVL (ease CRB(R : Get CRB address | 
54 10 AG 8 4 $ 15 MOVL CRBSL “AUASTRUECRG), R46 ; Get CDB address 

FFOS ri 2 ¢ BSBW CLEANOP_ : Cleanup the SHR data structure 
48E ? ASSUME CANSC_DASSGN EQ 1 
$ D7 24 1 DECL R8 : Deassign request? 
13 4 6820 BNEQ 10$ ; Br if no - all don 
FF75 3 492 6821 BSBW DELETE_SHR ; Else, delete the SHR data stucture 
495 6822 3; And NOW perform Like a NON-SHARED 


ee et ss 


—— a Se 


: Subroutine to scan queue for match on all packets 


CHECKER: 

(R6),R3 3; Get next entry 
CMPL = R3_ RO ; End of list? 
BEQL 30§ ; Br if yes 
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49 3 3 unit. 
49 é 4; 
yr) ° 5 ; Non-shared unit - perform $CANCEL function. 
SC AS 6BS (2495 6 ° 2: TSTwW yCBSW_REFC(RS) ; Last reference? 
eS. 498 6 8 BNEQ $ ; Br no - do selective cancel 
2 24 A5 OD 49A 6 3$: MOVL UCBSL_CRB(R5) ,R4 3; Get CRB address 
4 10 A4 g 49 6850 MOVL CRBSL AUXSTRUE(R4) RS ; Get CDB address 
FC65 4A2 6831 BSBW SHUTDOWN : Shutdown entire unit 
a SAS 6 § BBS #COB_STS_V_INITED, ; Br if QNA is still inited 
OA 024A C4 4A7 6 DB_B_STS(R4),5 3 
02% C4 4 CE 24 6 4 MNEGL #1,C0B_G_P ; Reset physical address 
252 C4 1 AE rr 2 5 MNEGW #1,CDB_G_PHA+4(R4) : oes 
$82 ? ; ; When this is the Last reference to the unit, reset the CPID of the UCB. 
0 a8 24685 6839 5s: BISW S*#UCBSM ONL INE ,~ ; Set the UNIT to ONLINE 
5 487 6840 UCBSW_STS(R5) : ' 
7. 489 6841 TSTL UCBSL_XQ_CPID(RS) ; Did we save the Creator PID? 
eS 48D ontg BEQL 10$ : Br if not 
5 00 24BF er MOVL UCBSL_XQ_CPID(R5) ,UCBSL_CPID(RS) ; Else, restore Creator PID 
OOBC C5. D4 246C5 6844 CLRL UCBSL_XQ_CPID(RS) ; Never again!! 
00D8 8F - $c eae 10$: oer #°M<R3,RZ,R6,R7> 3 Restore registers 
4CE 6847 ; 
rt ests ; Abort all associated receive packets on UCB queue 
4 €1 stce 6850 20S: BBC #UCBSV_ONLINE,- ; Br if not online 
F6 64 AS 4p 6891 UCBSW7STS(R5),10$ ; 
4D rth) ASSUME UCBS$V_XQ_ INITED EQ 0 
2 68 A E9 24D rete: BLBC UCB$W_DEVSTS(R5),10$ ; Br if not inited 
56 O0OA8 C5 +3 rt 6855 MOVAB UCB$Q_XQ_RCVREQ(R5),R6 ; Get address of receive queue 
1 rt 9826 BSBB Ss CHECKER ; Check packets on queue | 
re o328 ; Abort all xmit requests on CDB queue | 
57 24 A5 00 rt 4 6860 MOVL UCBSL_CRB(RS) ,R7 ; Get CRB address 
57 10 A7 DO 2662 6861 MOVL CRBSL~AUXSTRUC(R7).R7 =: Get CDB address | 
00 «CE 4E on0¢ BBC #CD TS_V ett ; Br if not inited 
DD 024A C7 4EB 686 CDB_B_STS(R7) ,10$ : 
SEC 6864 DSBINT UCBSB~DIPL(RSS 3 Syne access to CDB 
57 ggoc C7 SE 24F3 6865 MOVAB CD UEVES(R7) ,R7 ; Get start of queues 
8 91 GA 2478 6 66 MOVZBL S*#CDB_C_ABORTS,R8 3; Get number of queues we can abort on 
56 ,. 4FB 6867 30S: MOVL R7,R 3; Set address of next queue 
48 10 26FE 6 68 BSBB CXB CHECKER : Check CXBs on this queue | 
57 98 cO 25 6 ADDL #8,R7 3; Skip to next queue 
F5 5 F525 6870 SOBGTR R8,30$ 3 ,0op thru queues 
5 3 6871 ENBINT ; Enable interrupts 
BE 11 84 6 § RB 10$ : Exit from cancel 
5 6 
508 6874 
308 e876 
moe 
a5 8878 


SANS 


vw 
ow 
WO 
Wr 
-—oF9 
wo 


_ 
—mn 


maon iver = VAX/VMS QNA dr 
v04-000 CANCEL = CANCEL 
10 #1 513 6880 
53 88 OF 9817 Ga 
F6A % SIA 6 § 
FS 11 2510 6884 
a. 6 dO elf 6885 
EA 11 2 6 § 
05 2524 68 
525 6888 
325 6889 
525 6890 
5 2 ° 91 
OC AS DS 25 3 
11 19 2528 689 
06 12 252A 6894 
S2eC 6895 
54 DS 252C tty 
| Bh te F tt 
7 Fa 6898 
5 6899 
OC AS 60 A4 ODI 23 6900 
OE \¢ 5 6901 
08 1 539 ea) 
538 690 
0088 C5 «4660 AS) «(1 2538 «6904 
04 12 2541 6905 
28 AS «652 «Bl 2543 6906 
05 2547 6907 
548 6908 
548 6909 
53 66 «DO 2548 6910 
56 53) «61 «02548 «(6911 
38 13 254E oat¢ 
37 = 10 228 691 
ao: ve $22 6914 
53 63 OF 2554 6915 
557 6916 
16 24 AS EB 2557 6917 
53 4 a DO 2558 e318 
50 «0094 € if 55F 6919 
06 1 564 6920 
00000000°GF 16 2566 6921 
F653 30 «256C «(69 § 
4 11 gf 69 
4 0D 6924 
54 018D g2 R° 73 6925 
50 C C 2578 69 § 
14 e 1 578 69 
4 8ED if 69 3 
as 581 69 
53 63 «60 2 3 69 ? 
c3 bs H 4 
e938 
9 23 4 
9 6935 
589 6956 


i 
I 


2 
3 


: Subroutine to 


t 


1 


3 


4 
5 


C 


ver 
/0 ON UNIT 


BSBB 
BNEQ 
REMQUE 
BSBW 
BRB 
O$: MOVL 


BRB 
0$: RSB 


HECKPKT: 


OS: CMPL 


0$: CMPL 


BN 
O$: CMPW 
0$: RSB 


XB_CHECKER: 
MOVL 


10$: CMPL 


2 
5 
; Subroutine to check for specific cancel 
XB_CHECKPKT: 


¢ 


SrSEP-1986 00: 


oe 


B 2 


3 


check for specific cancel 


JRPSL_PID(R3) 
0$ 
108 


IRP$W_CHAN(R3) 


CXBSL_T 
.16$ 

<n R3 
PS$L-X0_SETUP(R3) .RO 
G*COMSDRVDEALMEN 
CXB_CRECKER 
UCBSL_XQ_FFI(RS) ,R4 


#SS$_KBORT,RO 
af F 1SL_XMIf_DONE(R4) 


CYB. CHECKER 
(RET CRS 
10$ 


Sete Se Se Se Se Ge Se Ge Se Se Ge Ge Ge Se eof Sete Se Ge Ge te 
c 
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Cancel if appropriate match 
Br if no natch : 


Remove from List 
penptate the 1/0 request 
Look for more 

Travel Link 

Look for more 

Return to caller 


Is this an Internal IRP? 
Br if yes 
Br if valid PID 


; Valid PCB? 
; Br if yes, no match 


Else, test CHAN 


$L_PID(R4),IRPSL_PID(R3) ; PID match? 


r no 
Try CHAN match 


$L_PID(R4) ,UCBSL_XQ_PID(RS) ; IS this the starter's PID? 
; Br if no 


Channel match? 
Return to caller 


Get next entry 

End of List? 

Br if yes 

Cancel if appropriate match 
Br if no match 

cneue from CXB List 


Br if not IRP address => FAST int 
Else, get IRP address 

Get address of SETUP mode buffer 
Br if none 

Else, deallocate the buffer 
Complete the 1/0 request 

Look for more 

Save R4 

Get FFI block address 

Set status return 

Complete the XMIT CXB 

Restore R4 

Look for more 

Travel Link 

Look for more 

Return to caller 


Page 15 
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50 24 A3 00 2 9 6937 MOVL CXBSL_T_IRP(R3) ,RO ; Get (presumed) IRP address 
D 69 8 ASSUME anoas TLIRP €Q CXBSL_T_UCB 
33 30 33 2 D 69 BLBS RO, 808 3; Br if not an IRP address 
AOD 6940 TSTL JRESL_PID (RO) ; Is this an Internal IRP? 
11 3 23 6941 BLSS 0$ :; Br if yes 
06 «1 22 bare BNEQ 10$ ; Br if valid PID 
54 D5 597 6944 TSTL RG ; Valid PCB? | 
17 12 2599 6945 BNEQ 50$ ; Br if yes, no match 
7. 238 e208 BRB 40$ ; Else, test CHAN 
OC AO 60 AG) ODI 228 O28 10$ CMPL ecest_ PID(R4) , IRPSL_ PID(RO) 3; PID / oe | 
OE 12 g5A2 694 BNEG  50$ : Br ifn | 
0 11 ryt eoae BRB 40$ 3; Try CHAN match 
0088 CS) 6460 ASOD] 5A6 o826 30$: CMPL PCBSL_PID(R4) ,UCBSL_xQ wh IDEN 3; IS this the starter's PID? 
06 12 25AC 695 BNEQ 50$ 3 if no | 
28 AO 3«652~—COoB1sse2SAE «6954 40S: CMPW R2, 1RP$W_CHAN(RO) 3 Fhannal match? 
05 258 9822 50$: RSB ; Return to caller 
6357 3; No IRP with CXB - FFI user 
6959 80$: TSTL RG ; No PCB? 
6960 BEQL 50$ ; Br if true - abort 1/0 
6961 MOVL R3,R3 3; Else, return Z-BIT clear | 
2806 RSB ; Return to caller 


ADR EYER 
v04-000 SUBROUTINES TO FIND SHR DATA STRUCTURE 6 | “SEP-1984 


ry 6962 E -SBTTL SUBROUTINES TO FIND SHR DATA STRUCTURE GIVEN PCB AND CHAN 
4 6360 ; Subroutine to find SHR data structure for user 
BB 6369 3; Inputs: 
BB 69 9 : R2 = Channel number 
58B 6971 ; R4 = PCB address (or zero) 
3 = UCB address 
288 344 R5 CB add 
5BB 6974 ; Outputs: 
5BB 6975 ; Ri = Address if SHR data structure if match 
hf £376 : RO is destroyed. 
BB 6977 ; Z7-Bit set then match. 
3 “Bit clear then no match. 
5BB 697 7-Bi L h h 
i 
588 e3e FIND_SHR: 3; Try to find shared user 
51 00C4 C5 00 5 69 ¢ MOVL UCBSL_XQ_DEFUSR(R5),R1 ; Get address of default user 
06 = 5C o38 EQL 10$ : Br if no default user 
1C 19 5C2 6984 BB 90$ 3; Check for match 
> oa 5¢4& 6985 40$ : Br if match 
50 0098 3 43 56 44) 10$ MOVAB UCB$Q_XQ_SHARE(R5),RO ; Save address of Listhead 
51 0 oD 5B 69 RO,R 3; Copy Listhead address 
SCE 6988 ASSUME SHR_L_QFL EQ 0 
51 61 DO 25CE 6989 208: MOVL CR1T,R1 3; Get next in List 
50 «651 «D1 2501-6990 CMPL se}, RO : Back to start of List? 
06 13 2504 6991 BEQL 30§ ; Br if yes - no pid/chan match 
08 10 208 699 8S8B 90$ 3; Check for match 
F4 «12 «2508 699 BNEQ 20$ ; Br if none 
03 11 25DA 6994 BRB 40$ ; Return in success 
50 50 od0 25DC 6995 30$: MOVL RO,RO ; Return match failure 
05 25DF 0398 40$: RSB 
3EO 6998 :+ 
43 644 3; Subroutine to check if PID and SHR data base match up 
5EQ 7001 ; Inputs: 
5EQ 7002 ; R1 = SHR address 
5EO 70035 ; R2 = Channel number 
434 roe ; R4 = PCB address (or zero) 
5E O88 ; Outputs: 
5E0 7 ; 7-Bit set then match. 
5E0 7 3 : Z7-Bit clear then no match. 
Aes 
5EO 7011 908: ; Check for match with SHR data base 
54 DS 2560 7 \ TSTL 3; Valid PCB address? 
07.~=1 E2 701 BNEQ 100$ ; Br if yes 
OC Al OD E4 7014 TSTL 100s L_PID(R1) : Zero PID? 
\¢ 5E7 7015 BNEQ : Br if not 
1 34 7 18 BRE Wry for CHAN 
OC Al 60 Ad D1 —B 7017 100$: CMPL PeBRL_ PID(R4) ,SHR_L _Prp¢kt) PIDs match? 
12 2 7 18 BNEQ 5 br’ if no - ery, for next 
10 Al 2 Bt F 7019 110$: CMP R2,SHR_W_CHAN(R1) ; Channels matc 
5 25F6 7020 140$: RSB : Return to caller 
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T_UCB = Find the point to poin ~3EE=1382 88: 36; 754 LORIVER. SREINODRIVER.MAR: 1 . ° (64) | vous 
-SBTTL FIND_POINT_UCB = Find the point to point UCB 

"FIND _POINT_UCB = Find the point-to-point UCB 


Functional description: 


XQDRIVER = VAX/ 
v00-008 FIND_P 


This routine is called to find the a to-point UCB for some received 
message. This is only needed when the protocol is in the startup state. 


Inputs: 
Ri = Protocol type (startup) 

0 R2 = MSG butter adress : 
0 R4 = COB address 
8 IPL = FIPL 
0 Outputs: 
6 RO = Status return for request 
8 ALL other registers are preserved 


NNN NNN INNA 
BEE EF RWWA WAIN GIOPOPOPOPOPOPOND 


WN SO ODO NA UNE WIN  O OD NIAUE WIN  O OD NIA NEW (OOOO NAUE 


ns | Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se r° 


0 
7046 FIND_POINT_UCB: 3% Find the point-to-point UCB 
OO6E 8F 8B 704 PUSHR #*M<R1,R2,R3,R5,R6> 7% Save registers | 
50 04 704 CLRL 3% Assume failure 
46 A2 O11 Bl 704 CMPW #1 ,CXBSW_R_SIZE(R2) i3 Is buffer the. right size? 
54 12 705 BNEQ 323 Br if not! 
48 A2 AA BF 91 705 CMPB #*XAA, CXBSW_R_SIZE+2(R2) it Is first rte start byte? 
oe Pe BEQL 32 Br if y 
48 A2 AB BF 91 705 CMPB #*XAB,CXBSW_R_SIZE+2(R2) :2 Is first "byte stack byte? 
73 is 705 BNEQ 90$ 32 Br if not 
55. 0118 C4 7055 10$: MOVL COB _L_UCBO(R4) ,R5 :% Get UCB address of unit 0 
55 305 09 7056 208: MOVL presi. LINK(RS) ,R5 7% Get address of next UCB 
68 1 A 705 BEQL 0$ :2 Br if end of List | 
C 705 ASSUME UCBSV_X wITED EQ 0 
F6 68 AS &? 705 BLBC uCBSW ~DEDSTSCR ),20$ 7% Br if not inited 
1 2620 706 CMPB = @NMAST_LINPR Pole 723 Is this a point-to-point user? 
00D8 C 6 706 fese. RQ_PROTRS) | 
EF 12 2625 706 BNEQ $ 32 Br if not 
oocc C5 lb 706 CMPL UCBSG_xXQ_DES(R5),=- 3% Does the destination match? | 
3€ As 628 7 XBSG_ R _SRC(R2) 33 
E 1 62D 7065 BNEQ 32 Br if not 
nae cS «6B 6eF 7 CMPW UCBSG_xXQ_DES+4(R5),- 72 Still match? 
42 A2 6 706 XB$G_ H OeReSeeRe) i3 
F 12 26 7 o8 BNEQ 32 Br if not 
48 A2 AB BF 91 26 7 $ CMPB @*XAB, CXBSW_R_SIZE*2(R2) i2 Is first byte stack byte? 
4 i 63¢ 7 9 BNEQ 40$ 4 ¢ if no 
95 68 A os © o 707 BBSC #UCBSV_XQ_START ,UCBS$W_DEVSTS( yf * 8 :% Clear Start state 
8 68 A —5 7 i) BBCC #@UCBSV"XQ"STACK ,UCBSW_DEVSTS(R5) ,60$ ;% We were in RUN, ignore 
52 0191 C 6 648 7073 30$:  MOVL UCBSL_RO_STIRP(AS) .R2~ :% Get start IRP 
FCF2 64D 7074 BSBW _STRT_IRP :% Send stack! 
1€ 1 2650 7075 BRB 7% Then send dat 
48 A2 AA BF 91 ? 4 6 £08: CMPB #*XAA,CXBSW_R_SIZE*#2(R2) iZ Is first byte. stort byte? 
Mg 77 99%: BNEQ 90$ 32. 6r i nore 
0060 8F 8B 659 7078 BITw #UCBSM_XQ_START!UCBSM_XQ_STACK,= ;% Ay “ee n : artup states? 
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68 AS $30 79 yspew. DEVSTS(RS) | 
28 «13 p 9 BEQL 32 Br if not, start recvd in RUN 
9) f CLRBIT ices xa Syant. cosy DEVSTS(R5);% Clear starting bit 
52. 0191 C5 8 6 ¢ VL x Fiyrree 3% Get start IRP 
FCD4 7 BSBW 3% Send stack! 
11 11 98 4 BRB 3% Wait for stack 
53 0080 D3 OF 6 5 60$:  REMQUE militia [3 Get transmit IRPs | 
0 1D 7 § BVS 3% Br if no more 
Q0EO D4 «6 0 67 INSQUE (R3),@CDB_Q_XMTREQ+4(R4) 3% Insert IRPs onto xmit queue 
F 1 67C 8 BRS 3% Look for more 
DE1 0 43 7 roe: BSBW XMT_ALT_START 3% Startup the xmit process 
3 VZBL #1, 3 eturn success 
50 01 A ] 80$ MOVZB 1,R0 7 R 
OO6E 8F BA 2684 7 35 90$: POPR #*M<R1,R2,R3,R5,RO> 3% Restore registers 
05 26 . 709 RSB 3% Return to caller 
$89 7035 
2 q 38 3 Start received in run mode | 
0098 cS. _—iD1 $89 1698 1208:  CMPL UCB$Q_XQ_SHARE(R5) ,- 3% Is Limited queue empty? | 
0098 D5 68D 7099 @UCBSO_xG@_ SHARE (RSS 7% 
F2 13 2690 7100 BEQL 30$ 3% Br es, no IRPs 
692 7101 CLRBIT #XMSV_STS oft UIVE.. UCBSL_DEVDEPEND (RS) 4 icleae active bit 
69 7108 SETBIT #XMSV-ERR-STAR T UCBSL L_BEVDEPEND(RS) :& Indicate cause of error 
0060 8F AA 269C 710 BICW #UCBSA_XQ-START!UCBSM_XQ_STACK,-;% clear start and stack flags 
68 AS 6A0 ab UCB$W_BEVSTS(RS) 3% 
6A 7105 CLRBIT #UCBS7_xXQ_RUN ce DEVSTS(RS) ;:% Clear the RUN fla | 
56 0098 C5 6A7 7106 MOVL ucBsa 70 SHARE (R5) ,R6 3% Get address of share structure 
FCE7 7107 BSBW ce ANOP_SHR 7% Cleanup all pending 1/0 
7108 8 90$ 3% Exit 
7109 
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3 -SBTTL ADD_MULTI = ADD UP ALL THE MULTICAST ADDRESSES 
ADD_MULTI = ADD UP ALL THE MULTICAST ADDRESSES 
Functional description: 


XQDRIVER = VAX/ 
VOu-005 ADD _MU 


This routine is called to combine all the per protocol type multicast | 
addresses into a single List in the CDB. If the sum of all multicast 

addresses is greater than the QNA can manage, then an error is returned. 
Inputs: 


RS = UCB address 


IPL = FIPL 
Outputs: 
RO = Status return for request 


R1,R2 are destroye 
R3-R5 are preserved 


COB_B_MLTTBL = Number of multicast addresses in CDB_G_MLTTBL 
COB_G_MLTTBL = New multicast address List 


Se Se Se Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


Implicit outputs: | 
| 
| 
| 


ADD_MULTI: Add up all the multicast addresses 


00D8 8F 8B PUSHR #*M<R3,R4,R6,R7> Save registers 
54 24 AS ——0 MOVL  UCBSL_CRB(RSS.R 
5 D0 MOVL  § CRBSLAUXSTRUC(R4) ,R4 Get CDB address 


: Get CRB address 


4 10 A4 
0261 (4 94 Reset number of entries 


SSAA SSD DODDDDDODDDOODDDOODODDDODDOODDOD 4s 


Se ee ie te i i i i i ee ee ee ee 


PUSHQ ; Save CDB and UCB addresses 
00 O2AA C4 00 2C MOVCS #0,CDB_G_MLTTBL(R4),#0,- ; Zero the structure | 
O2AA C4 0048 BF #6*MAX~C"MLT,CDB_G_MLTTBL(RG) ; | 
POPQ R4 ; Restore CDB and UCB addresses 
53 OD 9A MOVZBL #MAX_C_MLT+1,R3 ; Error if 1 more multicast address 
606 3; than we can handle 
50 01 CE 26D MNEGL #1,R0 ; Assume success 
56 O2AA C4 SE 26D MOVAB CDB_G_MLTTBL(R4) .R6 : Get address of Multicast table | 
57 28 AS OD 6D MOVL UCBSL_DDB(RS),R7 ; Get DDB address | 
2 A? (OD 6E MOVL DDOBSL_UCB(R7) ,R7 ; Get Ist UCB a erevs 
7 30 a7 00 26€ 10$: MOVL YCBSL-LINK(R?S .R7 : Get next UCB in List 
o50 BEQL $ ; Br if no more UCB's 
res ASSUME UCBSV_xOQ ami ree Fe 0 
F6 AS 9 E BLBC UCBSW_DEVSTS(R5) ,10$ ; Br if not inited 
52 OOE7 C7? SE 26F MOVAB UCBS$G Q_MULTI (RZ) .R2 > Get address of Multicast List 
51 O0E5 C7 9A 26F 61 MOVZBL UCBSB_XQ_MULTI(R7),R ; Set number addresses for UCB 
68 DS 26FA 66 208: TSTL (R2) : Is this field unused? 
1 6FC 6 BNEQ ¢ ; Br if no 
04 A2 ° gre 64 TSTW (R2) 3; Really? 
1g 65 BEQL 3 : Yes - skip it 
5 9 7 ; 06 25$ DECB ; One less available slot in COB 
1A 613 27 6 BEQL 40$ ; Br if none left - error 


H 2 
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86 6g 4h 707 P168 MOV (R2), (R6)+ ; Else, insert next address 
86 O04 A : 70A 1 MOV)  4(R25,(R6)+ : ane 
pee C4 6 27 71 9 INCB B_B_MLTTBL(R4) ; Count one more in List 
61 6 91 4 ats CMPB a tN ania i; Is there neu room? 
: 1A 271 5198 BGTRU 408 ~~ : Br if no - error 
52 6 £9 719 7174 308: DL 9 -Ré ; Skip te ne entry 
DB 51 fF 71C «#7175 SOBGTR R1,20$ ; Br if m 
c$ (14 at £176 RB o$ S Else, ship te next UCB 
30 D4 2721 28 40$: CLRL RO 3; Return failure 
00D8 8F BA 7 ; 7179 50$: POPR #*M<R3,R4,R6,R7> ; Restore registers 
5 27 7180 RSa 


XQDR 


1 2 
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ive 
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sas 


NA dr 
MOVE_MULTI = COP :20:54 (CDORIVER.SRCJXQDRIVER.MAR;1— (66) v04- 
4 } PF -SBTTL MOVE_MULTI = COPY THE MULTICAST ADDRESS LIST 
4 ! gi ¥ MOVE MULTI = COPY THE MULTICAST ADDRESS LIST 
4 ! § : Functional description: 
7 1 8 : This routine is called to copy the multicast address list from the 
4 4 ; ; generation table to the actual List. 
4 £13) : Inputs: 
, 7138 : R4 = CDB address 
4 £132 : Outputs: 
, 7187 ‘ ALL registers are preserved. 
, 7198 : Implicit outputs: 
7 7201 ; CDB_B_MULTI = Number of multicast addresses in CDB_G_MULTI 
4 4 8 $ CDB_G_MULTI = New multicast address List 
728 7204 ° 
7 7205 MOVE_MULTI: 3 Gove the mvletcest address List 
3F BB 728 7 06 PUSHR #* MRO, RI R2.R3,R Save regist 
0262 C4 O2AA C4 0048 er 8 7 720 MOVC3 #MAX_C HAS Cob. - Ay TTBL (RS) “Cb” G_ MULTI (RA) ; Copy List 
F BA 27 7208 POPR aMCROTR R3,R4, ; Restore registers 
0260 ¢4 0261 C4 30 , g 09 nove CDB_B OAc THOLiRas. (68 2 _MULTI(R4) ; Set number of entries 
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; ROUTINES TO SAVE/RESTORE UCB*S MULTICAST ADDRESS LIST 

; Functional description: 


~ a 
w< 
me 


: These routines are called to save or restore the multicast address list 
: in the UCB. 


; Inputs: 
; RS = UCB address 
; Outputs: 
: ALL registers are preserved. 
SAV_MULTI: Save multicast address list 
PUSHR #*M<RO,R1,R2,R3,R4,R5> Save registers 
I(R5),- ; Save multicast addresses 


MOVC3 #6*MAX’C_MLT,UC 
LT TBE CR 
#°M<RO,RT,R2,R5,R4,R5> 
MOVB UCB$B_XQ_MULTI(R5).- 
UCB$B~XQ-MLTTBL (RSS 


BS¢-x0_muLT 
: Restore registers 


RSB ; Return to caller 
RES_MULTI: 3; Restore multicast address list 
PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
MOVC3 #6*MAX_C_MLT,UCBS$G_XQ_MLTTBL(RS),- ; Restore multicast addresses 
UCBSG_RQ~MULTI(RS : 
POPR “m<rO,RT, 


) 9 eee 
ahs 3; Restore registers 
) . 


RSB t Return to caller 


Save count of multicast addresses 


; Restore count of multicast addresses 
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] 
d | 
V 
He q i -SBTTL VALIDATE_P2 = VALIDATE P2 BUFFER PARAMETERS | 
76A eee 
tea , ; ; VALIDATE_P2 = Validate P2 buffer parameters | 
76A : ; This routine is called to validate the P2 buffer parameters. The parameters | 
76A 4 ; are checked against a parameter table which verifies that the minimum value 
76A 7255 ; and maximum value is not violated, and that invalid status flags are not set. | 
76A 7 § :; If the parameter is a string, then the string must not exceed the maximum 
fea 4 57 ; string count for this parameter. 
Hoh 2859 | Inputs: | 
76A 7261; Re = Address of verification table 
76A 7 6¢ : R35 = IRP address 
76A 7263; RS = UCB address 
Fea 9568 
POA 4 66 : Outputs: 
ne i o8 : RO = Status return for request 
76A 7 5 ; If no error: ; 
76A 7271 ; Ri = Address of parameter verification table 
76A 7 i 3; If error: 
POA 4 a ; Ri = Bad parameter value 
76A 7275; ALL other registers are preserved. | 
76A 7276: 
Fen $508 | 
76A 7279 VALIDATE _P2:: ; Validate P2 buffer parameters 
O3DC 8F BB 276A 7280 PUSHR #*M<R2,R3 me Rt R7,R8,R9> ; Save registers 
56 2C A3 00 76e 7281 MOVL  IRPSL_SVAPTE(R35 ,R6 ; Get system P2 buffer address 
12 27 7 Hf BNEQ 20$ ; Br if a system buffer 
0124 «(31 aa 4 Hi 10$: BRw 150$ ; Else, leave | 
54 24 A5 DO 2777 7285 208: MOVL UCBSL_CRB(R5) ,R4 ; Get CRB address | 
54 10 a6 00 2778 7286 MOVL  § CRBSL-AUXSTRUC(R4).R4 ; Get CDB address 
b0 77F 7287 MOVL P2B_L“POINTER(R6).R6 =: Point to start of P2 data | 
58 32 A3 C 786 89 MOVZWL IRPSW-BCNT(R3),R8 3; Get size of P2 buffer | 
f 6 7 + : Loop to check next parameter in P2 buffer 
58 0g + 7 é 7 38 S0s: SUBL #2,R8 ; Can we get another parameter? 
1 7 729 BLSS 1 ; Br if no - all done 
51 6 3 if : g Be MOVZWL (R6)+,R1 ; Get parameter type from P2 
4 4 38 : see NOTE - R2 MUST be the very first item on the top of the stack 
57 6E€ 00 g . 4 38 : MOVL (SP) ,R7 : Get verification table address 
a4 : Loop to check P2 buffer parameter to Line parameter table 
50 7 Ae ; § 0s nov CRITeORO me ; Get parameter type code 
83 Fs 794 7306 BNEQ 458 ° : Br if NOT end © go table 


L 2 
XQDRIVER = VAX/VMS QNA driver 16-SEP=1 7:44 Ya VeR Macro V04-00 P 162 — XQD) 
VO0-008 VALIDATE sD - VALIDATE P2 BUFFER PARAMET mitt 7 89: 36; 754 LORIVER. SRCIJXQDRIVER.MAR; 1 ein (88) v04 


0107 +31 4 5 43$: BRw 170$ : Else exit in error 
45$: ASSUME ro 3° =fLAG EQ PRM_W_ TYPE+2 
59 7 OA 8 MOVZBL ; Get lope 8 
50 £900 Fo OAA ; i BICW AL rpkR TYP_M_CODE>,RO ; Clear all shy tye code 
5 1 ° 7A 19 CMPW R1,R0 3 perganeters ma 
17 7A4 731 BEQL 308 ; Br 
57 02 CO Brag 7818 ADDL #2. R? 44) =e 
7A9 731 SKIP een E LGV FIN ROR? : Skip minimum value 
7AF 073146 SKIP PRM_FLG_V_MAX,R9,R7 3; Skip maximum value 
785 7315 SKIP = PRMFLG-V~ “INVALID ROR? : Skip invalid tlags 
D6 isd yee 1 BRB 40$ 3; Try next parameter 
re 4 3 ; Match found - nullify if same value & check min,max,valid, invalid 
50 87 B80 278d 7320 508: mov (R7>* RO : Get offset + width 
A EF 27C0 7321 EXTZV RM_OFF_V_WIDTH,- ; Get width only | 
52 50 7C2 7 ¢ aPR OEE WS -ULO TH -RO.R2 
0O eF 27c5 7 EXTZV #PRM_OFF_V_VAL : : Get offset only | 
50 28 OA 707? 7324 #PRM_OFF-S~ VALUE “RO RO ; me 
0s 59 03 E 7CA 7325 BBS #PRM-FLG-V-CDB,R9,55$ ; Br if CDB datum | 
L 3 ee offset in U 
OR ee ae Semis 
+ Con 
50 9 CO 2703 7 8 338 ADDL R4,RO 3 tonpuee offset in COB 
706 7 7$ ASSUME PRM B_FLAG EQ PRM_W_TYP 5*g 
31 FB A? «OC EO 2706 7350 BBS #PRA_TYP_V_STRING,-5(R7),95$ ; Br if string parameter 
58 04 ce 708 7331 SUBL #4 RB : Must be longword value 
B6 19 27DE 7 g BLSS c3 : Br if error 
53 86 00 2760 7 MOVL : Get parameter value | 
7E3 7334 CASE i Oiybese. LIMIT=#1,<- : Br to handler | 
7E3 7335 g.- ; ©Byte value 
7E3 7 $ i; Word value 
res 4 goss ; Longword value 
} 
yep 4 33 3; Byte value in structure | 
60 53 91 57ED 7341 60S:  CMPB RB, (ROD : Is this the same? | 
08 #11 «#2770 7 4g BRB 90$ > Check result 
FES $8c2 § word val | 
; Word value 
7F 7345 
60 53 681 2d7Fe 7 46 60S:  CMPW RB, (ROD : Is this the same? | 
03 (11 i , 4 BRB 90$ : Check result 
oe a3 3 Longword value 
60 53 Di 27F7 7 ? bos: CMPL R3, (RO) : Is this the same? 
of \ 7FA 7 § $: BNEQ ; Br if no - sane lane checks 
OBOE 8F ° 7FC 7 CM R1 .@NMASC_PCLI_PTY : Is this the protocol type? 
03 3 1 7354 BEQL i$ : Br if yes - always store this 
FA AG B4 3 7355 CLRW = 6 (RO) g Mul lity the parameter code 
O8F 1 7 § 91$ BRW 140$ ; soy Seat pe parameter - skip checks 
094 1 ; 4 938: GRw 170$ : LONNGGG Branch to 170$ 
: 4 39 ; String value 
Ss €¢ @ tee $f 65s: SUBL #2,R8 ; Can we fetch string length? 
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F8 }? of 7 $¢ BLSS 93$ ; Br if no - error 
3 ° 1 6 MOVZWL = (R6)+,R3 ; Get string Longek 
¢ 14 64 SUBL R3,R8 : Is there room for string? 
F 1 17 65 BLSS 93§ ; Br if no - error 
a 81 19 7 6 CMPW R3,R2 i Is fhe string too long? 
é 1A 281C 736 BcTRU 93 : Br if yes - error 
56 co If °8 ADDL R5,R6 3 Skip past string 
51 0621 if a 4 9 hear See PCL PES At 3 4: aie the destination address? | 
; Br es 
51 0604 8F # : q ag #NMASC_PCLI_PHA,R1 3 ” this she physical address? 
: Br no 
02 6 35 F 7 rg 96$: BSBW VALID PHYAD 3; Validate the physical address 
68 5 E 7374 BLBC RO,170$ : Br if error in physical address 
— Be 7375 BRB 3; Else, continue checking 
51 OB0F 1 81 7 6 97$: CMPW #NMASC_PCLI_MCA,R1 : Is this the multicast address list? | 
: 5 . eae BNEQ $ ; Br if no - okay 
022 3 3€ 7378 BSBW VALID_MULTI : Validate the multicast address List 
5¢ 50 = EY 41 7379 BLBC RO,170$ : Br if error 
44 7380 DSBINT UCBSB_FIPL(RS) > Syne access to UCB 
FEFO 30 2848 7381 BSBW SAV_MOLTI ; Save the multicast addresses 
0240 3 8B He 7 1 PUSHR #*M<R6,R9> 3; Save registers 
56 ; C2 52 738 SUBL R3,R6 :; Backup pointer to start of List 
aa 4 855 7384 MOVL 3; Setup string count in R9 
027F 0 2858 7385 BSBW SET _MULTI ; See if we can set new addresses 
858 7386 ; RO = return status 
0240 8F ny 58 7387 POPR #*M<R6,RI> 3; Restore registers 
FEF2 0 5F 7388 BSBW RES_MULTI ; Restore the multicast List | 
e 7389 ENBINT ; Restore IPL 
38 50 €9 2865 7390 BLBC RO,170$ ; Br if error 
BRB 3; Check state okay 
12. «11 868 f 31 136$ if | 
05 59 99 E1 286A 7 38 100$: BBC #PRM_FLG_V_MIN,R9,110$ ; Br if na minimum value 
87 53 BI 28GF 7394 CHPW ORS. (R7)¢ : Is the value too small? | 
68 1F 2871 7395 BLSSU -170$ ; Br if yes - error 
05 59 es 373 7 38 110$:  6BC #PRM_FLG_V_MAX,R9,130$ ; Br if no maximum value 
87 53 81 2877 739 CMPW R3,(R7)+ : Is the value too big? 
24 1A 287A 7398 BGTRU 170$ : Br if yes - error 
18 59 02 E1 287C 7399 1308: BBC #PRM_FLG_V_INVALID,R9,140$ ; Br if no invalid flags 
36 8 BO 2880 7400 MOVW (R7)F,R 3; Get invalid flags 
06 59 «9603 EO 883 7401 BBS #PRM_FLG_V_CDB,R9,135$ : Br if CDB datum 
68 AS «52 «BS (288 40¢ BITw Re UCBSW-DEVSTS(R5) ; Check UCB invalid bits 
09 11 2888 74 BRB 137$ : Continue 
4 oO 8D 7404 135$: TSTL 4 : Is COB present? | 
o 1 34 7405 BEQL 140$ ; Br if no - whey 
024A C4 ; 9 1 74 $ BITB R¢ CDB_B_STS(R4) : Check CDB invalid bits | 
08 12 3% 7407 137$: BNEQ 1708 : Br on error | 
FEEB «31 ~ eeR8 140$: BRW 308 ; Loop if more parameters 
50 1 QA 98 7410 150$:  MOVZBL S$*#SS$_NORMAL ,RO ; Set success return | 
3. («1 ? rei) BRB 180$ ; And return | 
50 14 QA A rig 170$: MOVZBL S*#SS$_BADPARAM,RO ; Set error return 
OSDC 8F BA AS 7414 180$:  POPR #*M<R2,7R3,R4,R6,R7,RB,R9> ; Restore registers 
5 2BA7 7415 RSB ; Return to caller | 
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st -SBTTL CHANGE_PARAM = UPDATE UCB/CDB BASED ON P2 BUFFER PARAMETERS 
‘13 3++ 

o : : CHANGE _PARAM = Update UCB/CDB with P2 buffer parameters 

te § : This routine is called to update the UCce/C08 with the P2 buffer pereanters. 
425 ; The parameters are stored in the sppcege! ate cells of the UCB/CD 

oe : 3; This routine can only modify the LINE PARAMETERS. 

f 4 : Inputs: 

f 8 : R = Address of verification table 

429 ; = IRP address 

oe ? $ = UCB address 

g : ; IPL = FIPL 

oe : : Outputs: 

7436 ; RO = destroyed. 

7437 ; ALL other registers are preserved. 

7438 ; 

stag * 

7441 CHANGE_PARAM: ws ° the UCB/CNB parameters 
744 PUSHR #*M<R1,R2,R3,R4,R6,R7, RB. a Save regtenare 

744 3 Pl table addres 

7444 MOVL IRPSL _SVAPTE(R3) ,R6 ; Get system P2 butter address 
7445 BNEQ 5$ ; Br if system buffer 

oree 3$ BRW 120$ ; Else, return 

7448 5$ MOVL UCBSL_CRB(R5) ,R4 ; Get CRB address 

7449 MOVL CRBSL URS TRUE CRG) ),R4 3: Get CDB address 

7450 P2B POIN NTER(R6), R6 3; Point to start of data 

pee MOVZWL eesu- “BCNT(R3) RB : Get size of P2 buffer 

7438 § 3; Loop to get next parameter from P2 buffer 

7455 10$:  SUBL #2,R8 : Try to get next parameter 
7456 BLSS : Br if not there 

7457 MOVZWL (R6)+,R0 3; Get parameter type from P2 
oes BEQL 9 ; Br if null value parameter 
745 MOVL R10,R7 :; Get vor ti ncet ten table address 
7460 CMPW = RO, #NMASC_PCLI_PTY : Is th is. the protocol type? 
7461 BNEQ o$ : Br if n 

bet BISW #UCBSM_XQ_PROTYP,- 3 ee Bay that protocol type specified 
Set UCBSW_BEVSTS(R5) 3 

2465 : Loop to store buffer parameter in UCB/CDB 

ots, F ASSUME pRH W_TYPE EQ 0 

7468 208: MOVZWL (R7J+, ; Get parameter type code 

oeee BEQL : Br if end of verify table 
7470 BICW #*C<PRM_TYP_M_CODE>,R1 ; Clear all but type code 

7471 ASSUME mee 3 “GAG EQ"PRM_W_TYPE+ +2 

rete MOVZBL : Get flags byte 

747 CMP eee : Parameters watch? 
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MON OVO OT 


—O wn DS OW SO 


BEQL 
L 


“8 3 


found = nullify if same value & 


MOVW pi Lag R1 3; Get offset + width 
EXTZV M_OFF_V_WIDTH,- : Get width only 
PPRACOFE-ScWIDTHERT R2 : ase 
EXTZV #PRM_OFF_V_VALUE,- ; Get offset only 
#PRM_OFF-S-VALUE,R1,R1 ; can 
BBS #PRM-FLG-V-CDB,R9,40$ : Br if COB datum 
ADDL R5,RT : compute offset in UCB 
BRB 50$ > Contin 
ADDL R4,R1 : Compute rettset in COB 
ASSUME PRM _B_FLAG EQ PRM_W_TYPE+2 
BBS #PRA_TYP_V_STRING,-5(R7),100$ ; Br if string data 
SUBL #4 RB : Can we get value? 
BLSS 126 : Br if no - exit 
MOVL (R6)+,R3 ; Get parameter value 
CASE R2,TYPE=B,LIMIT=41,<- ; Br to handler 
60§,- ; Byte volue 
70$,- : Word value 
80$> ;  Longword value 
word, longword value in structure 
MOVB R3,(R1) 3; Store byte value 
BRW 3; Check remainder 
MOVW R3,(R1) 3; Store word value 
BPW ; Check remainder 
MOVL R5,(R1) :; Store longword value 
BR 10$ ; See if more left in P2 buffer 
invalidated parameter 
ADOL #4 ,R6 ; Skip value parameter 
SUBL #4,R8 3; Assume a value parameter 
BGT 65 : Br if more 
BRB 120$ : Else, all done 


: String parameter in structure 


1208 
MOVZWL (R6)+,R9 
R9 RS 


1268 
#NMASC_PCLI_DES RO 
SET DESAD 
#NMASC_PCLI_PHA,RO 
1038 


sft 6 LOVER. Macro V04-00 
0:54 (CORIVER.SRCIXQDRIVER.MAR; 1 


if 

ip o fset word 
ip ainieun value 
ip geximun value 
ip invalid flags 
: Try next parameter 


Oumunwnw 


check min,max,valid, invalid 


Can we get ote ing? 
Br if no - exit 
Get string tr 

gen ee read entire string? 


Br if no 


Cont inue 
Is this the physical address? 
Br if no 


or 


Is this. the ig Ron address? 
Else, set new destination address 
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0230 0 2974 7531 BSBW T_PHYAD ; Else set new physical address 
ic iy 3957 § é BRB : Cont aa 
50 OBOF 6) 44 fe i 1038: cHPY PHBASCPCLILACA.RO 3 4° nis. the multicast address list? 
P+} r 
01 : i§ 9 7535 BSBW SET MULTI ; Else, set up new UCB multicast List 
8 11 29 75 § BRB 3; Continue 
3 Be 9 7537 105$: PUSHR #*M<R1,R2,R3,R4,R5> ; Save re sqters 
61 66 987 7538 MOVCS RO, (ROS, ( : Store stri ng 
f BA 2988 7539 POPR #°M<R1 ho. R3,R4,R5> : Restore registers 
56 0 98D 7540 110$: ADDL R9 R6 ; Point past the string in P2 buffer 
FF34 1 338 fee) BRW 10$ 3; Try for more in P2 buffer 
O7DE 8F BA 299 538 120$: POPR #°M<R1,R2,R3,R4,R6,R7,R8,R9,R1I0> ; Restore registers 
05 2997 7544 RSB : Return to caller 
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99 P366 -SBTTL RETURN_P2, Return UCB/CDB buffer parameters 
ts a | 
2 4 i3 : RETURN_P2 = Return P2 buffer parameters | 
44 4 i : This routine is called to return the UCB/CDB buffer parameters. | 
44 7338 : Inputs: 
99 7385 ; R3 = IRP address | 
44 f 3? 3 R5 = UCB address 
99 7338 : Implicit inputs: | 
998 7560 ; IRPSL_XQ_P2BUF(R3)_= User P2 buffer address | 
4 £20) : IRP$W_XQ_USERSIZ(R3) = User P2 buffer size 
338 7368 : Outputs: | 
998 7565 : RO = Size of buffer returned 
998 £266 ; ALL other registers are preserved. 
998 7567 ; 
ah ee 
998 7570 RETURN_P2:: ; Return P2 buffer parameters 
O3DE 8F BB 2998 7571 PUSHR #*M<R1,R2,R3,R4,R6,R7,R8,R9> ; Save registers 
50 D4 299C £376 CLRL R ; Assume no P2 buffer given 
56 40 A3 DO 299E 757 MOVL IRPSL_XQ_P2BUF(R3),R6 ; Get user P2 buffer address 
03 12 29A2 7574 BNEQ 5$ ; Br if given 
OOBA 31 aAS P30? BRW 70$ ; Else, return 
54 24 AS D0 29A7 7577 5$ MOVL UCBSL_CRB(R5) ,R4 ; Get CRB address 
54 «10 AG v0 9AB 7578 MOVL  § CRBSL-AUXSTRUC(R4),R4 _: Get CDB address 
38 AS) 3C«(O9AF «7579 MOVZWL IRP$W-XQ_USERSIZ(R3),R8 ; Get size of user buffer 
29 DD 2983 £380 PUSHL R : Save start of data address 
5 DD 2985 7581 PUSHL R : Save IRP address 
51 D6C6 CF 9E «af T38¢ MOVAB LINE_PARAM,R1 ; Get address of verification talbe 
+45 a : : Loop to return next parameter 
9BC 7586 , ASSUME PRM_W_TYPE EQ 0 | 
57 81 B60 298C 7587 10$: MOV (RIS+ R7 ; Get parameter type code | 
03 12 29BF 7588 BNEQ 11$ ; Br if end of verify table 
0096 = 31 at} 7390 BRiw 65$ . ae 
59 57 £900 8F AB 29C4 7591 11$: BICW3 #*C<PRM_TYP_M_CODE>,R7,R9 ; Get only the type code | 
53. 81 «(9A OCA 1398 MOVZBL (R1)+,R ; Get flags byte | 
50 81 B60 aco 7334 MOVW (R1)+,R 3 Get offset + width | 
9 f 38 : We will only return NMASC_PCLI_DES to the SHARED-LIMITED users. | 
59 =©0821 oF 8} 38 7397 : ee #@NMASC_PCLI_DES,R9 3; Is H's ° point-to-point parameter? | 
; Br no 
00D4 ¢5 03 91 29D 5299 CMPB  =s- #NMASC_ACC_LIM,UCB$B_XQ_ACC(R5) ; Is this a SHARED-LIMITED user? | 
& 12 290C 7600 BNEQ 508 ; Br not, else return parameter 
OA EF 29D 7e01 13$:  EXTZV  #PRM_OFF_V_WIDTH,- : Get width only 
52 50 06 9E0 7602 #PRM_OFF_S_WIDTH,RO,R2 ; sine 


a 


RETURN_P2, 
0 EF 296 
50 A 9E 
05 ae: 
CO g9EC 
1 29EF 
4 05 29F1 
C 613 Q9F 
50 34 CO gt 
8 a: oF 
4 19 29FB 
30 FB AL CEO A080 
SB Oe fe BAt8 
47 19 2a08 
AOA 
AOA 
AOA 
AOA 
AiG 
Al4 
Al4 
86 60 9A 2Al4 
08 11 2a17 
86 60 A19 
03 11 alc 
86 60 00 2alE 
A21 
A27 
A 
87 11 2A ; 
A 
A35 
N 
59 OBOF BF BT GA 
05 12 gASA 
01¢7 30 2a3C 
FO 11 Ast 
58 08 Ce eaa] 
08 19 Ass 
86 06 9B oad 
86 80 00 2A4 
86 80 BO gage 
DO 11 gage 
53. 6E D0 2A51 
3A AS 0601 BF BO 2A54 
3 BED) GAS 
50 56 BE C3 cA 
OSE BF BA GAG) 
5 2A65 
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1 3 EXTZV #PRM_OFF_V_VALUE,- ; Get offset only 
7604 #PRM-OFF"S"VALUE RO RO ; rote 
7605 BBS #PRM-FLG-V-CDB,R3,15$ ; Br if COB datum 
76 § ADDL RS RO ; Compute offset in UCB 
76 BRB 17$ : Continue 
76 3 15$: TSTL RS i Is 508 given? 
76 BEQL 50$ ; Br if no 
7610 ADDL a3 RO ; Compute offset in CDB 
7611 178: SUBL #2,R 3; Any room left in buffer? 
role BLSS 60$ ; Br if no = all done 
761 MOVW R7, (R6)+ ; Return parameter 
7614 BS #PRM_TYP_V_STRING,-5(R1),55$ ; Br if string parameter 
7615 UBL #4,R8 3; Any room left? 
role BLSS 6 :; Br if no = all done 
761 CASE R2,TYPE=B,LIMIT=#1,<- ; Br to handler 
7618 ¢ $,- ; Byte value 
7619 0$,- ; Word value 
te Y 40$> ;  Longword value 
fe § ; Byte, word, longword value in structure 
26 4 20S: MOV ZBL (RO), (R6)+ ; Store byte value 
oe § 30$: ae (RO), (R6)+ ; Store word value 
76 S 40$: MOVL R 6)+ 3; Store longword value 
7629 50$: SKIP  PRM_FLG_V_MIN,R3,R1 : Skip minimum value 
7630 SKIP PRM_FLG_V_MAX,RS, ; Skip maximum value 
7631 SKIP  PRM-FLG-VIINVALID,R3,R1 ; Skip invalid flags 
re ¢ BRB 10$ 3; Try for more parameters 
oe : ; String value in structure 
76 6 §5$: CMPW  §#NMASC_PCLI_MCA,R9 : Is this the multicast address list? 
76 BNEQ ; Br if no 
7638 BSBW SE TURN MULTI ; Else, return multicast address List 
7639 BRB 50$ : Try for more parameters 
7640 57$: SUBL #8,R8 ; Any room left? 
7641 BLss 608 : Br if no = all done 
764 MOVZBW #6, (R6)+ ; Store string size 
764 MOVL  (RO)+,(R6)+ ; Move data 
7644 MOVW (RO)+, (R6)+ : eee 
rete BRB 50$ 3; Try for more parameters 
7647 60$ MOVL (SP) ,R3 ; Get IRP address 
764 MOV #$S8_BUFFEROVE , IRPSW_Xx0_STATUS(RS) ; Return error status 
7649 65$ POPL R : Pop stack 
7650 SUBL3 (SP)+,R6,RO ; Return size of parameters 
7651 70$ POPR #*mcri ,RO,R3,R4,R6,R7,R8.R9> ; Restore registers 
7652 RSB ; Return to caller 
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KQDRIVER = VAX/VMS QNA driver 16-SEP-1984 00:37:44 VAX/VMS Macro v04-00 Page 169 — 
vaya VALID MULTI = VALIDATE THE MULTICAST ADD eet 7 LEE? YORIVER. SREIXODRIVER.MAR: 1 ° (9) | 
Aes He ~SBTTL VALID_MULTI = VALIDATE THE MULTICAST ADDRESS LIST | 
A s+ 
i f 5 3; VALID MULTI = VALIDATE THE MULTICAST ADDRESS LIST | 
“ 7658 3 Functional description: 
A66 7661 ; This routine checks all address in the multicast address List to make sure 
A66 £006 3 that the logical address bit (lsb) is on. 
A66 7665 ; 
Age poge 3 Inputs: 
A é 7666 3 R3 = Size of multicast string list 
A66 7667 ; R4 = CDB address | 
A66 £008 ; R5 = UCB address 
A66 £68 3 R6 = Address past multicast strings 
A66 7670 ; 
A66 7671 ; Outputs: 
A66 7672 ; 
A66 7673 : RO = Low bit clear if invalid address in List 
A66 7676 ; ALL other registers are preserved. 
A66 7675 ; 
A66 7676 ;-- 
A66 767 
A66 7678 VALID_MULTI: 3; Validate the multicast address List 
BB 2A66 7679 PUSHR #*M<R2,R3,R6> ; Save some registers 
C A6A peg MNEGL #1,R0 3; Assume success 
C A6D 7681 SUBL ca RG 3; Point back at start of List 
C2 2A70 7682 SUBL  #2.R : Can we read modifier word? | 
1 NA 26 ; Biss 208 : Br if no - error | 
A75 7685 ; Make sure modifier word is valid - non-zero and less than or equal to | 
Als 168 3 NMASC_LINMC_CAL | 
A75 7688 ASSUME NMASC_LINMC_SET EQ 1 | 
A7 7689 ASSUME NMASC_LINMC_CLR EQ § 
A7 7690 ASSUME Cvs te | leet EQ 
89 2A75 7691 NOVY (R6)47R : Get modifier value | 
1 A78 769 BEQL 2 : Br if zero - illegal | 
61 A7A 769 CMP R2 ,#NMASC_LINMC_CAL ; Is the modifier okay? 
1A 2A7D 769% BGTRU ¢ § : Br if no = error 
13. 2A7F 7695 BEQL $ ; Br if “CLEAR ALL" - ignore strings | 
C A81 roe DIVL $8 R3 ; Calculate number of strings | 
1 A 69 BEQL 30$ : Br none 
E A 3 038 10$: BLBC (R6),208 ; Br if not a Logical address / ANS 
DI 2A 16 CMPL (R6)+,R0 ; Do low order bits = -1? CANC 
is A&C 7700 BNEQ 15$ ; Br if no - ohay 
8 A f 7701 CMPW cB) RO ; Do high order 16 bits = -1? dB_ 
A 77 ; BEQL 2 3; Br if yes - illegal CDB_ 
C A933 7705 158: ADDL #2, 6 ; Point to next multicast address COB- 
F ys 7704 SOBGTR R35,10$ ; Loop if more coe 
11 2A 7705 B 30$ ; Exit with success CoB 
A9B 77 $ CoB 
D4 2A9B 77 3s CLRL RO ; Return error | ra) 
BA A9D 77 3 $ POPR #*M<R2,R3,R6> ; Restore registers CoB 
5 2AAl 77 $B cB. 
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-$ ~~ 4 ves Macro Vv04-00 
DATE THE PHYSICAL ADOR "er8 198 88: 3b:8e LORIVER. SREIKODRIVER.MAR: 1 
-SBTTL VALID_PHYAD = VALIDATE THE PHYSICAL ADDRESS 


a 
VALID_PHYAD = VALIDATE THE PHYSICAL ADDRESS 
Functional description: 


This routine checks the physical address to make sure the LSB is clear and 


that the modifier word is valid. 


Inputs: 

R1 = 5 page ge onthe code 

R3 = Size of str 

R4 = COB address 

RS = UCB address 

R6 = Address past physical address string 
Outputs: 


RO = Low bit clear if invalid address in List 
ALL other registers are preserved. 


VALID_PHYAD: ; Validate the physical address 
PUSHR #*M<R2,R3,R6> ; Save some registers 
MNEGL #1,R0 ; Assume success 
SUBL Rk Re ; Point back at start of list 
SUBL #2,R ; Can we read modifier word? 
BLSS 30$ 3; Br if no - error 


; Make sure modifier word is valid. 


SSUME NMASC_LINMC_SET EQ 
ASSUME NMASC_LINMC_CLR EQ ¢ 
SSUME NMASC_LINMC_CAL EQ 
ASSUME CYSTS | teed EQ 4 
MOVZWL (R6)+,R ; Get modifier value 
SOISPATCH R2,TYPE=B,- : Dispatch on modifier value 
<NMASC_LINMC_SET ? $>.- ; Set the address 
<NMASC_LINMC_CLR 40$>,- ; Clear the address 
<NMASC_LINMC_CAL 30$>,- ; 3 = invalid value 
SNAASC LINAC SDF 10$>,- ; 4 = check it out more 
BRB 30$ 3; Any other values are invalid 
10$: CMPW #@NMASC_PCLI_PHA,R1 : Set to def physical addr requested? 
BNEQ ies 3; Return failure if no 
BRB 40$ ; Else, success 
208: CMPL #6,R3 s is spring size okay? 
BNEQ : B () 


r n 
(R6) 408% : Br if a physical address 
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KQORIVER = VAX/VMS Q iver 16-SEP-1984 37:44 VAX/VMS Macro v04-00 Page 17 
vara ht SET_MULTI = SET THE UCB MULTICAST ADDRES mi ioets LEE? DRIVER. SRCIXQDRIVER.MAR; 1 = 138) | 


~SBTTL SET_MULTI = SET THE UCB MULTICAST ADDRESS LIST 


+4 
SET_MULTI = SET THE UCB MULTICAST ADDRESS LIST 
; Functional description: 


wooooo°o°oo 


om | 


e | 
| 
; This routine sets up the multicast addresses in the UCB. | 
; Inputs: 
; = CDB address 

3 R5 = UCB address 

3 = Address of multicast addresses to be set or cleared 

; = Size of multicast List 


ll al ta al ll OE EE ER OD ll 


Bezee 


IPL = FIPL 
; Outputs: 


RO = Status return for request 
ALL registers are preserved. 
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R 

R 
RP4 
RP4 
SET_MULTI: ; Set up the UCB multicast address List RP{ 
O24E 8F PUSHR #*M<R1,R2,R3,R6,R9> ; Save registers RP{ 
59 3 C 0 SUBL ge Rg ; Can we read the modifier word? RP 
65 1 0 BLSS 6-90 : Br if no = exit RP4 
59 06 g6 0 DIVL #6,R9 ; Calculate number of addresses RP{ 
51 863 0 MOVZWL (R6)+, : Get the modifier RP4 
0 ASSUME WNMASC_LINMC_SET EQ 1 RP4{ 
0 ASSUME NMASC"LINMC~CLR EQ ‘ RPS 
0 ASSUME NMASC_LINMC_CAL EQ RP{ 
0 CASE R1,TYPE=B,LIMIT=41,<- ; Dispatch on modifier RP4 
0 10$,- ; Set the address(es) RP4 
0 40$,- : Clear the address(es) RP{ 
! 70$> 3; Clear ALL addresses _ 
' ; Set address from list ~4 
59 0 14 10s: TSTL Ro 3; Any addresses present? RP4 
ee 15 BEQL 90$ ; Br if no - exit RP 
3) D 16 208: MOVL (R6)+,R1 ; Get multicast address RP4 
2 6 8 1 MOV (R6)+,R2 3 en | RP{ 
O19e \8 BSBW MATCH ADDRESS 3; Try to tind address in table RP{ 
OF 50 «OC 1 BLBS RO, : Br if present - skip it RP‘ 
38 1 0 BSB8B ay MLTENTRY 3; Find entry in UCB multicast table RP‘ 
43 £ 1 BLBC RO, 100$ 3; Br if none - Leave in error RP‘ 
; 1 00 § MOVL R1,(R3)+ 3; Insert new address RP' 
¢ 0 MOVW R2,(R5)¢ 3 a RP* 
€5 4 INCB ucse XQ_MULTI (RS) : Count one more address | RP 
«259 Ff 5 308: SOBGTR R9,208 ; Br if more RP’ 
LW ; BRB 90$ : ALL done | Re 
3 3; Clear address from List ae 


13 | 
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upon yee = VAX/VMS QNA driver 19 $ee- 1388 90:37 
v04- SET_MULTI = SET THE UCB MULTICAST ADDRES 5-SEP-1984 :20: DRIVER. SRCJXQDRIVER.MAR; 1 
9 D5 2817 7830 408: TsTL_ RO ; Any addresses present? | 
D B19 1 BEQL 90$ : Br if no = exit 
2] os & B18 § 50$ MOVL (R6)+,R1 3; Get multicast address 
2 8 8 Bit 7 MOVW (R6)+,R2 3 eae 
014 B 7834 BSBW MATCH ADDRESS ; Try to find address in table 
08 E9 2824 5 BLBC =—s_—«RO., 60S ; Br if not present - skip it 
D4 2827 : CLRL (RS)* : Mark slot as not in use 
4 2829 CLRW (R3)+ $ een 
O0ES C 7 2BoB 7 § DECB $UCB$B_xXQ_MULTI(RS) 3 Count one Less address 
0084 9 Bor 7 BSBW SQUEEZ MOLT! : Squeeze up the multicast List 
E65 7 B 7840 60S: SOBGTR R9,50$ :; Br if more 
700«1 2 f 4] BRB 90$ : ALL done 
: f f ‘8 3 Clear all multicast addresses 
OOES CS 94 2837 7845 70S: CLRB UCB$B_XQ_MULTI(RS) ; Reset number of multicast addresses 
51 26 9A 7 46 MOVZBL #MAX_C_MCT#3,R1 ; Get number of words in multicast List 
52 OOE7 CS 9E 2B 784 MOVAB UCBSG_RO_MULTI (RS) .R2 ; Get address of multicast addresses 
82 B84 2843 7 ‘8 80$: CLRW (R2)+ : Init multicast address List 
FB 51 —=sO«FS + 2 SOBGTR R1,80$ ; Loop if more 
50 01 QA 2848 7851 90$: MOVZBL S“#SS$_NORMAL ,RO ; Return success 
O246E 8F BA 2B4B 7 26 100$:  POPR #°M<R1>R2,R3,R6,R9> 3; Restore registers 
05 4F 785 3; Return to caller 
B30 9885 + 
30 28 ; FIND_MLTENTRY = FIND EMPTY SLOT IN UCB MULTICAST ADDRESS LIST 
28 7858 ; Inputs: 
50 7859; 
23 7860 ; RS = UCB address 
50 7861 ; 
50 7 6¢ 3; Outputs: 
50 7863: 
50 7864 ; RO = Status return for request 
: 65 ; R35 = Address of available slot if successful 
50 7867 FIND_MLTENTRY: 
51 DD 50 7868 PUSHL 3: Save R1 
50 O01 CE 52 7869 MNEGL #1,R0 ; Assume success 
53 OOE7 CS’ 9E 55 7870 UCB$G_XQ_MULTI(RS).R3  : Get address of multicast List 
51 oS 9A 5A 7871 MOVZBL #MAX_C_MCT, ; Get maximum number of addresses 
8 D5 5d 7 10$ TSTL (R3)F 3 Empty slot? 
4 7 SF 787 BNEQ 70s : Br if no - skip to next entry 
63 8B 61 7874 TSTw (R3) 3 Really? 
3 1 63 7875 BEQL 30$ ; Br if yes - success 
53 4 65 7 6 208: ADDL rd] a 3; Skip to next address 
f2 51 SF 444 4 SOBGTR R1,10$ ; Br if more to try 
50 D4 2B6B 7 8 CLRL RO 3; Return failure 
53 o C 9p 7880 30S: SUBL #4,R3 3; Back up pointer 
1 BED B ° 7881 POPL R1 ; Restore registers 
0 B73 7 ; RSB 
B74 7 
B74 7884 ;+ 
a 4 ? 3; SQUEEZ_MULTI = SQUEEZE UP THE MULTICAST ADDRESS LIST 
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: Ouputs: 
§ 


K 3 
er "9 SE 
— UCB MULTICAST ADDRES 5-SE 
; Functional description: 


; Inputs: 
R5 = UCB address 


None 


QUEEZ_MULTI: 
PUSHQ 


R 
MOVZBL UCBSB_XQ_MULTI(RS) ,R4 
BEQL = 4 

UCBSG_XQ_MULTI(R5) .R3 


MOVAB 
: Search for empty slot in List 
10s: TstL (R3) 


NEQ 208 
TSTW = 4 (R3) 
BEQL 30S 
20$ ADDL 4#6,R3 
SOBGTR R4.10$ 
BR 40$ 
3 Empty slot found 
$0 MOVL 6(R3), (R3)* 
MOVW  6(R3).(R3)+ 
SOBGTR R4, 30$ 
CLRL (R3)* 
CLRW = (R3) + 
40$ POPQ ss R3 
RSB 


squsese down the multicast address List 
R3, R4 


Save 


Get number of entries in List 


Br if non 


e 
Get address of multicast List 


1986 00:20:5¢ YORIVER. sRESNODRI 


Do 


-0 
IVE 


; The first empty slot is searched for in the multicast address List and 
; the list is squeezed from that point down. 


Is this the empty slot 
Br no 


y 
Skip to next entr 
: Yb 


Loop if more poss 
Else, exit 


Squeeze the list 
Loop if more to go 


Zero the last entry 


Restore R3, R4 
Return to caller 


in list 
lities 
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XQDR R = VAX/VMS QNA 16-SEP-19 AX/VMS Macro V04-00 Pa 175 
FO OO8 SET_PHYAD = SE ie PHYSICAL ADDRESS g- -$ P1984 88: 35382 DRIVER. SRCIXQDRIVER.MAR; 1 - (74) 
A? 7997 .SBTTL SET_PHYAD = SET THE PHYSICAL ADDRESS 
Bar 3 - «SBTTL SET-DESAD = SET THE DESTINATION ADDRESS 
BA? 7930 . SET _PHYAD = SET THE PHYSICAL ADDRESS | 
BA 1; SET-DESAD = SET THE DESTINATION ADDRESS | 
4 ie $ : Functional description: 
1 4 5 ; This routine sets up the physical address in the COB. | 
BAy 9 $ : Inputs: 
BA? 8 § : R4 = CDB address 
BA? 7940; RS = UCB address 
BA? 7941 ; R6 = Address of “ohystest address to be set or cleared 
i Pets 3 R9 = Size of the string 
BA eee aap 
BAy 194 : Outputs: 
BA? 7948 : RO = destroyed. 
BA? 7949 ; ALL other registers are preserved. 
MEE 
BA7 1956 7 -ENABL LSB 
BA? 7955 SET_PHYAD: ; Set up the physical address 
02C2 8F BB 2BA7? 7954 PUSHR #*M<R1,R6,R7,R9> 3; Save register 
57 OODE C5’ 9E 7955 MOVAB UCBSG_ xQ “PHACRS) , R7 3; Get address a UCB cell 
09 11 «268 £328 BRB 10$ 3; Join common code 
BB2 7957 SET_DESAD: 
O2C2 8F BB 2BB2 7958 PUSHR #*M<R1,R6,R7,R9> ; Save registers 
57 oocc cS 9 BB6 7959 MOVAB UCBSG_ XQ _bES S(R5),R7 3; Get address of UCB cell 
59 O02 ¢ BBB 7960 10S: SUBL y R9~ ; Can we read the modifier word? 
41 19 2BBE 7961 BLSS 5 Of : Br if no - exit 
59 ©6006 4 3 Bcd 796 DIVL 3; Calculate number of addresses 
5186 BCs 1963 MOVZWL tRene, R1 : Get the modifier 
BC6 7965 ASSUME NMASC_LINMC_SET EQ 1 
BC6 796 ASSUME NMASC"LINMC-CLR EQ : 
BC6 796 ASSUME NMASC_LINMC_CAL EQ 
BC6 7968 ASSUME NMASC_LINMC_SDF EQ 4 
Bce 9 SDISPATCH R1,TYPE=8,- : Dispatch on modifier value 
BC6 ort <NMASC_LINMC_SET 20$>,- ; Set the address 
45 797 <NMASC_LINMC_CLR 50$>,- ; Clear the address 
BC6 797 <NMASC"LINMC_CAL 50$>,- ; 3 = invalid value 
Bte ad <NAASC_LINAC_SDF 40$>,- ; Set physical as DECnet default address 
2D =o B02 797 BRB 50$ ; Any other values are invalid 
at Bt 
Be Ba Set physical address 
59 f BD4 bos: TSTL R9 ; Any addresses present? 
9 #1 BD 7382 BEQL 50$ : Br if no = exit 
87 6 00 28D MOVL (R6)+,(R7)+ ; Set new address | 
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XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 00:37:44 VAX/VMS Macro v04-00 Page 176 | 
Ose O08 SET_DESAD = SET THE DESTINATION ADDRESS iets ELT LORIVER. SREIXQDRIVER.MAR: 1 - (74) 
67 6 BDB 7984 MOVW (R6)+,(R7) $ oes 
sf = 3 5 BRB sie ; ALL done 
BE ; $ ; Clear address from List 
87 4 CE BE 9 § S0s: MNEGL #1,(R7)+ ; Reset address 
67 1 “ BE 990 MNEGW #1,(R7) : 
19 11 2BE6 7991 BRB 50$ 
BE 338 
BE 1394 : Set t 
3; Se 
BE 445) ; default address. The PHA address has been pre-set with -1, which implies 
43 £338 : using the HWA. 
00 €0 2BE £o78 dos: BBS #CDB_STS_ V_INITED,- : Br if XQ device is already inited 
13 024A C4 BEA 799 COB_B_STS(R4) ,50$ 3 use 
51 00000000'GF 8 BE s000 MOVW “SCSSGB_SYSTEMID.R1 3 Else, get SCSSYSTEMID parameter 
OA 1 BF 001 BEQL ; Br if none, use HWA 
87  Q00400AA 8F DO 2BF Oe MOVL #*XO0004COAA, (R7)+ 3; Set common low longword of addr 
67 51 #60 ore iF MOVW R1,(R7) 3; Set unique high word of address 
02C2 8F BA 2C01 8005 50$ POPR #*M<R1,R6,R7,R9> ; Restore registers 
05 2C05 8006 RSB ; Return to caller 
C06 8007 -DSABL LSB 


ALL done 
7 physical address (Assume entered from SET_PHYAD) to the DECNET 
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= VAX/VMS QNA driver 


: Inputs: 
: R6 = 


; Outputs: 


RETURN_MULTI: 
PUSHQ 


MOVZBL 
MOVAB 


10$: 


30$: POPL 


3 
RETURN_MULTI = RETURN THE MULTICAST ADDR 
~SBTTL RETURN_MULTI = RETURN THE MULTICAST ADDRESS LIST 


16-SEP-1984 
873Ep=19 4 


COB address 
UCB address 
Address where to store multicast address list 
Size left in output buffer 


R1 
UCB$B_XQ_MUL 
UCBS$G~XQ"MUL 
#2,R8 


44 


a Ta pies Macro V04-00 


DRIVER.SRCJXQDRIVER.MAR; 1 


++ 

RETURN_MULTI = RETURN THE MULTICAST ADDRESS LIST 
; Functional description: 
; This routine returns all the multicast addresses in the UCB List. 


R6 = Address past stored multicast address List 
ALL other registers are preserved. 


; Return the multicast address List 
; Save R 


Set number of multicast addresses 


; Point to start of multicast lists 
; gen string size fit? 


r if no = return ; 
Skip size field of return data 
Save start address of string 
Room left in buffer? 

Br if no .. exit now 
Return address 


Br if more possibles 


Restore string address 
Get string size 
Return opt ing size 
Restore R1, R2 

Return to caller 


= VAX/VMS_QNA 


KODRIVER 
v04-00 MATCH_MULTI = 


Functional description: 


Inputs: 


Receive buffer 
COB address 
UCB address 


@ 
= 
“nu 


o 
WAN 

> 
00.00.00 00 00 0000.00.00 00 00 00 00.00.0000 000000 


Outputs: 
RO 
1 


Destroyed 
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MATCH_MULTI: 
PUSHQ R2 
CLRL = RO 


ASSUME UCBSV_XQ_1 
BLB UCBSW-DEUS 
RO ; 
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CMPW #BROCST2,R2 
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p++ 
; MATCH_MULTI = CHECK MULTICAST ADDRESS 


Status return for request 


er 16-SEP-1984 : 
K MULTICAST ADDRESS etsy 88:3 
~SBTTL MATCH MULTI = CHECK MULTICAST ADDRESS 


R 
ALL other registers are preserved. 


7:44 \VAX/VMS Macr 
0:54 CDORIVER.SRCJXQDRIVER.MAR; 1 


o V04-00 


This routine returns success if the unit is in promiscous mode, or the 
recognizes all multicast address or the multicast address in the buffer 
matches a multicast address in the unit's multicast address List. 


Find multicast addres in UCB 
Save R2, 
Assume failure 


Br if PROTOCOL TYPE is not valid 
Assume success 


Br if promiscuous mode - OKAY 

Br if all multicasts are enabled 
Get multicast address 

Is this the broadcast address? 


y 
Br if yes - everybody get this one 
ind epee? match 
R2, R 
Return to caller 


Page 178 
(76) 


Va 


XQDRIVER = VAX/VMS QNA driver 16-SEP-1984 00:37:44 VAX/VMS Macro V04-00 Page 179 | *F II 
Yen OUD MATCH_ADDRESS = FIND A MATCH ON A MULTIC Sey 7 ELT LORIVER. SREJRODRIVER.MAR: 1 . (77) | 

C69 97 ~SBTTL MATCH_ADDRESS = FIND A MATCH ON A MULTICAST ADDRESS | 
83 38 ++ 
324 : y ; MATCH_ADDRESS = FIND A MATCH ON A MULTICAST ADDRESS 
C69 : : Functional description: 
C69 8104 ; This routine searches the UCB multicast address list for a match on a | 
324 : 5 ; multicast address. 
C69 1 ; Inputs: | 
C69 «81 : ; Ri = Low 32 bits of 48 bit multicast address to match 
C69 8110; R2 = High 16 bits of 48 bit multicast address to match 
C69 8111; R4 = CDB address | 
324 1 3 R5 = UCB address 
C69 114 ; Outputs: | 
C69 139 : RO = Status return for request | 
C69 8117; R3 = Address of slot in multicast address List 
C69 +8118 ; ALL other registers are preserved. 
‘So B15) 
C69 Ht ¢ MATCH_ADDRESS: : Find multicast address in UCB 

54 OD C69 1 PUSHL ; Save R4 

01 QA 2C6B 8124 MOVZBL S“#SS$_NORMAL,RO 3; Assume success 

CS 9A 2C6 125 MOVZBL UCB$B_RQ_MULTI (RS) ,R4 ; Set number of multicast addresses 

CS 9E 2C7 1 $ MOVAB Veer epee te RS ORS ; Point to start of multicast Lists 

83 D1 2C7 127 10$: CMPL (R3)4°R1 3 Is this a match? 

05 12 2C7B 8128 BNEQ 20$ ; Br if no - skip to next 

63 B61 2C7D 8129 CMPW (R35) ,R2 : Is it really? 

08 13 2C80 8130 BEQL 30$ : Br if yes - all done | 

02 ce cee 137 208: ADOL #2,R3 3; Skip to next entry 

> oe +H ! ; SOBGTR R4,10$ ; Br if more in List 

50 D& 2C8B 8134 CLRL RO ; Return failure 

2 acti re 8136 30$: sie y oF ot ; Backup pointer 

05 2C90 139 RSB : Return to caller 


| 
Restore R4 | 
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~SBTTL POKE_USER = DELIVER ATTENTION ASTS 
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POKE_USER = Deliver attention AST 
Functional description: 
This routine is used to deliver an attention AST if one has been 


R5 = UCB address 


RO = Low bit clear only if user is not notified 


R1-R3 are destroyed. 


Poke user process 
Sync access to UCB 
Assume failure 

Get AST Listhead 


Branch if yes 
Indicate success 


ER 
DSBINT 41+) FIPL(RS) 
UCoSL. XQ_AST(R5) ,R1 


Copy Listhead peeress 
a block 


Branch if done 
Change pereseses 


Continue Rng A AST blocks 


UCBSL_DEVDEPEND(R5) ,- 
ACBSL_KAST+4(R1) 


1 
i ORL A ee 


Return success indicator 


WOONAUE WN $9 OD NAUE WN 0 ODNAUE WN OOONAOULS W000 Fa 


Return to caller 
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= VAX/VMS_QNA driver 
MATCH_PROTYP = Match protocol type 


16-SEP-1984 
“SEP=1984 


7:44 VAX/VMS Macro 
0:54 (CDRIVER.SRCIXO 


-SBTTL MATCH_PROTYP = Match protocol type 
-SBTTL MATCH_PROMTYP = Find the promiscuous user 


existing U 
Inputs: 


Outputs: 


See Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge 
> 


MATCH_PROTYP: 
LRL 


10$: MOVL 


ASSUME 
ASSUME 


8 
15$: INCL 
20$: RSB 


10$: RSB 


MQ_END:: 


BE 
ASSUME 
BLBC 


+ 
MATCH_PROTYP = Match protocol type 
MATCH _PROMTYP = Find the promiscuous user 


This Sout cag enethe for a match of a protocol type against that in 
Ss. 


R1 = word of protocol type 
R4 = COB address 


RO = LBS=> match; LBC=> no match 
R5 = UCB address on success 


RO 
DB_L_UCBO(R4) ,R5 

UCBSL_LINK(RS) .RS 
0$ 


UCBSV_XQ_INITED EQ 0 
UCBSW~DEVSTS(RS), 10$ 


NMASC_STATE_ON EQ 0 
NMASC"STATE-OFF EQ 1 


UCBSB_XQ_PRM(RS) ,10$ 
UCBSW7XQ_PROTYP(RS) 


Ri 
10$ 
RO 


#1,R0 
CDB_L_PRMUSER(R4) RS 
10$ 


; Match protocol type 
; Assume failure 

; Get first UCB address 
; Br if not inited - yet 
: Get next UCB address 


f EQL no match 


; Br if PROTOCOL TYPE is not valid 


; Skip if PROMISCUOUS user 
Match? 


: If NEQ no = Loop 
; Return success 


Done 


Assume success 


Get PROMISCUOUS user's UCB address 


Br if present 
Else, return error 
Return to caller 


ro V04-00 
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! Performance indicators ! 


ew ereoeeseorwe se swe rec eaan + 


Phase Page faults CPU Time Elapsed Time 
Initialization | ; op: 0:00.07 0:00:01.40 
Command processing 1 :00 9-36 + ‘ 
Pass 181 00: § 0 47.44 
Symbol table sort 00:00:04. 0:00 2-3? 
Pass 2 47 Q: 8 14.8 8 8 27 
Symbol table output 0: 0.4 1.56 
Psect synopsis output 5 0:00:00.01 0:00:00.01 
Cross-reference output 00:00 2-98 0:00 98°85 
Assembler run totals 2479 00:01:15.98 0:05:10.92 


The working set yo was 3600 pages. 

436246 bytes (8535 pages) of virtual memory were used to buffer the intermediate cod 

There were 250 pages of symbol table space allocated to hold 4250 non-local and 656 
0 source Lines were read in Pass 1, producing 65 object records in Pass 2. 

103 pages of virtual memory were used to define 92 macros. 


e. 
local symbols. 
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; Macro Library statistics ! 


Seen eRe ee manor Sew me me + 
Macro Library name Macros defined 
-$255$DUA28: CSHRLIBINMALIBRY.MLB; 1 1 
“$522 SDUACE: SYS.OBJJLIB.MLB;1 42 
$255$DUA28: CSYSLIBISTARLET.MLB;2 14 
TOTALS (all Libraries) 57 


4109 GETS were required to define 57 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:XQDRIVER/OBJ=O0BJ$:XQDRIVER MSRC$:XQDRIVER/UPDATE=(ENHS$: XQDRIVER) +EXECML$/L1B+SHRLIBS$:NMALIBRY/LIB 
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